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MODULE in 
BEGIN 


1 
RRR RARER AERA RARER AREER EAE EERE RARER ERE AERA AATAERRAEAREREREEEEEE 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
:* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED 


!* THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND gd 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE a. ND WITH THE 
:* INCLUSION OF THe ABOVE cy cenece NOTICE. THIS SOF Tv ARE OR ANY OTHER 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
» PUNSFERRES NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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DEN 


teract (IDENT = ‘v04-000', 
ADDRESSING “MODE (EXTERNAL. = “GENERAL)) = 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Oreeoket itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


t® DIGITAL ASSUMES NO RESPONS 
!* SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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! FACILITY: Login 
ABSTRACT: 
This module handles all processing of interactive jobs. 
ENVIRONMENT: 
VAX; VMS operating system. 
AUTHOR: Tim Halvorsen, March 1981 
Modified by: 
V03-025 ACG0436 sy AY Goldstein, 23-Jul-1984 16:32 
Make DISUSER f tag ap o all logins; move call to 
UPDATE_UAF_RECORD on oy fe ,e to after CIA scan has been 
done; Tix auditing of invalid pearoane under breakin. 
Make reconnection default to NONE if read times out. 


v03-024 BLS0332 Benn Schreiber 16-JUL-1984 
Correct punctuation. 


v03-023 rag te: Andrew C. Goldstein 9-Jul- bw 19:44 
Use SYSGEN parameter to time out all LOGIN read 
chenge reconnection default to true. Set termi inal 
to /NOBROADCAST during reading of system password. 
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; 8 058 1 
; 9 8089 1 
: 60 0060 1 
; 6) 0061 1 
wa. 44 1 
os 2 0065 1 
; «666 0064 1 
3; 663 0065 1 
: 66 0066 1 
; «Of Sper 1 
3; «668 0068 1 
> $69 ORG? 1 
; 6G 0070 1 
; 6} 0071 1 
pee: por s 1 
ze 0075 1 
; 66 0074 1 
; 0075 1 
a. 0076 1 
; 0077 1 
; 0078 1 
Se .., 0079 1 
; 90 0080 1 
; «8 0081 1 
; | «682 0082 1 
, & 0083 1 
> 84 0084 1 
;. 685 0085 1 
; 86 0086 1 
3; | 6OOf 0087 1 
; «888 0088 1 
; «68 0089 1 
; we 0090 1 
fee 0091 1 
;. = 0092 1 
: 0093 1 
; = 0094 1 
.o>9 0095 1 
i oo 0096 1 
; 0097 1 
; 0098 1 
; WW 0099 1 
: 100 0100 1 
; 101 bios 1 
; 19 136 1 
; 0103 1 
3 104 0104 1 
3 109 Bib2 1 
: 106 106 1 
:; 107 0107 1 
; 108 0108 1 
:; 109 0109 1 
; 110 0110 1 
3; 6111 Bit} 1 
: 16 iN 1 
; at 1 
; (116 114 1 
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1b-se -1984 01:55:5 AX-11 Bliss-32 V4.0-742 
12-Sep-19 4 04:27:33 LOGIN. SRCJINTERACT.B32°1 
v03-022 JRLOO17 John R. Lawson, Jr. 66-Jul-1984 16:00 
Move system password from SYS$G6Q PWD to a special record 


in SYSUAF.DAT which AUTHORIZE will ignore. 


v03-021 MHB0161 Mark Bramhall 28-Jun-1984 
Fix the Listing of disconnected processes. 


VO3-020 MHBO0144 Mark Bramhall 22-May-1984 
Changes for new account name conventions. 
Limit failing password to NSAS$S_PKT_PASSWORD. 
Fix open/connect logic during auto-Togins. 


V03-019 MHBO122 Mark Bramhall 10-Apr-1984 
Finish up automated reconnection code. 
Security audit breakin attempts. 
eat | audit successful reconnections. 
Remove forced shape bo of /CLI=xxx and /TABLE=xxx. 
Set terminal name via SET_TERM_NAME. 
Change password zeroing logic. 
Add routine to return ASCIC day of week. | 
Call SET_ACCOUNT to clear account name initially. 


V03-018 MHB0110 Mark Bramhall 21-Mar-1984 
Use LNM services for logical names. 
Clean up “‘last login’ messages. 
Add first cut at automated re-connection. 


v03-017 PCG0001 Peter George 31-Jan-1984 14:17 
Add pecensery password pronet Ae 
Display UAF information during interactive login. 


V03-016 ACG0390 Andrew C. Goldstein, 18-Jan-1984 11:36 
Remove unused username from breakin arg List 


v03-015 ACG0385 Andrew C. Goldstein, 29-Dec-1983 10:07 
Implement job type in JIB; move ALF definitions to LIB 


v03-014 ACG0379 Andrew C. Goldstein 6-Dec-1983 19:44 
Make GET_UAFREC return a value to fix OPAO: Logins 


v03-013 ACG0376 Andrew C. Goldstein, 18-Nov-1983 19:31 
Fix system password and autologin handling; 
fix length checks on parsed command Line. 
Use GET_INPUT for all terminal reads. 


v03-012 GAS0183 Gerry Smith 15-Sep-1983 
Add breakin detection. 


v03-011 GASO169 Gerry Smith esehug. 1985 
Fix comments to show that both SYSSINPUT and SYSSOUTPUT 
are opened. Also, x the login retry logic so that 
the welcome isn't displayed for every login retry. 


v03-010 GAS0162 Gerry Smith 30-Jul-1983 
Add support for the system password. 


v03-009 GAS0164 Gerry Smith 30-Jul-1983 
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INTERACT 16-Sep-1984 01:55:5 AX-11 
v04- 1228681 382 935278 LOGIN 
ag e the disable-logical-translation method 
n RAS calls to use the new LNM_MODE field. 
Make the ‘'you have (n) new mail messages(s)'' 
message nicer. 


V03-008 GAS0146 Gerry Smith 23-Jun-1983 
Add support for the TNTER bit, and checking that 
the interactive process is coming from a terminal. 


v03-007 GAS0145 Gerry Smith 14-Jun-1983 
Add login retry logic for interactive processes. 


v03-006 GASO138 Gerry Smith 31-May-1983 
Add CLITABLES, the name of the CLI command table. 


v03-005 GAS0088 perry Smith 4-0¢t-1982 
If the input device is a remote terminal (denoted 
oY having both MNT and TRM bits turned on) then 
clear the purge type-ahead in the RAB. 
If /DISK is specified, then make sure that the 
disk name ends witha ‘':". | 
put one there. 


| 
v03-003 GAS0069 Gerry Smith —— 1=Apr-1982 
Add a ppesuery mask of overstriking characters 
if SYSSINPUT is a local.echo terminal. Also change 
code to allow for no uaf record on interactive login. 


v03-001 GAS0059_ Serry Smith 17-Feb-1982 
Fix various auto-login problems. Make sure that. 
a username of <login> is used until it is determined 
that a valid UAF has been found. Use only the system 
logical name table to translate during open/creates. 


v03-014 GAS0043 Gerry Smith 55-Feb-1982 
Change SCHARCOUNT to XCHARCOUNT. 


V03-013 GAS0041 Gerry Smith 03-Feb-1982 
Force a user-supplied CLI to be in SYSSSYSTEM. 


v03-012 SPFO0S1 Steve Forgey 01-Jan-1981 
Set initial interactive username (CTLST_USERNAME) tc 
<login> instead of JOBCTL. 


v03-011 GAS0028 Gerry Smith 30-Dec-1981 
Zero the password field in the RMS area. This is to 
prevent knowledgeable users from gaining access to it 
during login. 


v03-010 HRJO039 Herb Jacobs 19-Dec-1981 : 
Allow for accounts without a password for auto-login while 
not allowing these acoounts to be used interactively via. 
the authorization flag DISACNT. Add flags in authorization 
record to allow suppression on new mail and welcome messages. 


v03-009 HRJ0037 Herb Jacobs 10-Dec-1981 
Accept passwords in auto login, and handle new device name 


<= 
Oo 
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f one isn't there, 


MEW 0 ODNOU EWN $0 OONOUEWN HO ODNA UE WN OC OONAUS WR ODOM 


i ee ee eee 
Ne AR Re er ee tet a BEELER EE PAWN IWInnoponopofopononu i SS 
cl el cel el ee el el el el el el el cl ee el ee ee ee el el el el el cD el el el cl el el el cl eel cel el cel eel el el eel el el cece cel cll cece cll cel sels cel cell cells lls 
SOS OO. DD. D Tt  B B B B B B E B BWANIAIAAIANIWIAIP POPPIN SS SS 
—OOONO NEW 0 ODA UE WN 0 ODNO UE WN OO ODNOAU EWN “OVD OWNOAUFS WAN“ OWOO~nou 
ee ee ee ee ce el ee ee el ee cel eel el cel el cl ce ee ee ee ee el el el eel el cel eel el el el el cel eel cel eel el el el cel eel eel eel ell ell el el eel ells lt lt ls 


. 
’ 
. 
. 
. 
. 
. 
’ 
. 
. 
. 
& 
. 
~ 
. 
° 
+ 
e 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
os 
. 
o 
. 
a 
. 
o 
. 
. 
. 
. 
. 
. 
. 
. 
7 
. 
. 
. 
. 
e 
. 
° 
. 
ae 
. 
o 
. 
o 
. 
7 
° 
. 
o 
. 
a 
. 
. 
. 
o 
. 
. 
. 
e 
7 
° 
7 
o 
. 
o 
. 
. 
. 
o 
” 
. 
7 
o 
. 
° 
. 
o 
. 
e 
. 
. 
. 
e 
. 
am 
7 
a 
. 
. 
. 
o 
. 
. 
. 
° 
. 
. 
. 
. 


—OO0On 
folele lolol elelelelelel ele aleleleolelelaleleleleleleolelalelelelelelelelelelolelololelelelolel «lolol elo olelelol oa) 


7 
INTERACT ibese -1984 55:5 AX-11 Bliss-32 V4.0-742 
v04- 12-8 08- 1 3be $3 41 39 LOGIN. SRCJINTERACT B32: 1 
oe 72 1! syntax in SYSALF.DAT. 
: 47 ig ji s 
: 174 17% =«1«5 v008 PCG0001 Peter George 03-Dec-1981 
: He Ne ! Call CLISEND_PARSE after parsing login commmand. 
3 179 $198 1! v03-007 HRIJ0032 Herb Jacobs 13-Nov-1981 
; 178 gife : } Accept null passwords by using new validate_pass entry. 
: 180 0 Oo 1! v006 TMHO006 Tim Halvorsen  22-0ct-1981 
3 133 4 1 : } Add missing support for CAPTIVE UAF flag. 
3 183 o18s 1 } v005 SPF 0030 Steve Forgey 15-Sep-1981 
: «(184 184 1! Set terminal name in PCB before validating username and 
; «185 0185 1! password. 
; 186 0186 1! 
s 187 0187 1! v004 TMHO004 Tim Halvorsen 17-Jul-1981 
3 133 Bias : Change the wording on the new mail message. 
; 190 0190 1! v003 TMHO003 Tim Halvorsen 16-Jul-1981 
; 191 0191 1! Display the actual number of new mail messages 
3 136 8138 : when informing the user that new mail has arrived. 
3: 194 0194 1! voo2 TMHOO02 Tim Halvorsen 17-Jun-1981 
3 132 Bia2 : Clear purge-typeahead before password prompt. 
: 197 0197 1! v001 TMHO001 Tim Halvorsen 15-May-1981 
; «4198 0198 1! Output blank Line if no user announcement (SYSS$ANNOUNCE) 
: 199 0199 1! message. 
: 200 0200 1 !-- 
; 201 0201 1 
3 soe Bsd¢ 1! 
; 20 0205 1 ! Include files 
; 204 0204 1! 
; 205 0205 1 : 
; 206 0206 1 LIBRARY ‘SYSSLIBRARY:LIB'; ! VAX/VMS system definitions 
; 207 0207 1 REQUIRE ‘SHRLIBS:UTILDEF'; ! Common BLISS definitions | 
: 208 0392 1 REQUIRE ‘LIBS:PPDDEF'; ! Process permanent data region 
: 209 0539 1 REQUIRE 'LIBS$:LGIDEF'; ! LOGINOUT private permanent storage 
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3 2 0610 1! 

8 if 611 1 ! Table of contents 

oe 4 o1¢ 1! 

>; 214 615 1 

; 215 614 1 FORWARD ROUTINE 

: 1 615 1 init_interactive: | NOVALUE, 
; 2) 216 1 auto_login, 

: 218 0617 1 interactive_validation, 

; 219 0618 1 get_password, 

; 220 0619 1 write_announcement, 

; 221 0620 1 announce: OVALUE, 
; § § 86 a. zero_password: NOVALUE, 
$ 6 § 1 get_Syspwd: NOVALUE, 
: 224 06 1 check_connection: NOVALUE, 
> 225 0624 1 ascic_day_of_week; 

; $8 0625 1 

; ? 0626 1! 

; 228 69 7 1! External routines 

3 $3 8 Ss 3a 

; 230 629 1 

; 231 0630 1 EXTERNAL ROUTINE 

; 232 0631 1 open_input: NOVALUE, 
3 gee 0632 1 open_output: NOVALUE, 
; 234 0633 1 get_uafrec, 

3 gee 0634 1 update_uaf_record: NOVALUE, 
; ¢ tH 1 write Tile: NOVALUE, 
, gor 0636 1 write_output, 

; @n 0637 1 write_timeout: NOVALUE, 
; 239 0638 1 write_fao: NOVALUE, 
; 240 0639 1 get_input: NOVALUE, 
; 241 0640 1 set_uic, 

; seg 0641 1 set_username: NOVALUE, 
; 24 0642 1 set_term_name: NOVALUE, 
3; 244 06435 1 set_Sysprv: NOVALUE, 
; 245 0644 1 clear_sysprv: NOVALUE, 
; 246 0645 1 exit_process: NOVALUE, 
3; 247 0646 1 Lib$day_of_week, 

: 248 0647 1 mail$get_néw_count, 

; 249 0648 1 lgi$ pwd 

> 250 0649 1 \gi$check pass, 

; 251 0650 1 igi$searchuser, 

3 $26 0651 1 security_audit: NOVALUE, 
3; 9636 1 cia_scan, 

; See B63 1 cli$dcl_parse, 

: ee 654 1 cli$present, 

; 256 0655 1 cli$get_value, 

3 ger 0656 1 cli$end_parse; 

; 258 0657 1 

: 259 0658 1! 

: 260 0659 1 ! External storage 

; el peed 1! 

: 66 661 1 

; 0662 1 EXTERNAL 

: 264 663 1 phy_term_name: VECTOR, 
5 $0? 664 1 terminal device: BYTE, 

: 266 665 1 snout chan, 

s 2or 0666 1 dev_dep_2: $BBLOCK, 


1 
1 


gm 
6-Sep-1984 01:55:5 AX 
b=8ep-19 4 93:23:39 


Initialize interactive job 

Check if automatic login enabled 
Perform interactive validation 
bcquire password from terminal 

Write user-supplied announcement msg 
Announce successful login 

Zero password in RMS buffer 

Get system password ; 

Check for (re-)connection(s) 

Return ASCIC day of week 


! Open primary input file 
! Open permet? output fil 

' Read 

! Update the login failure count 

! Write file to primary output 

! Write to primary output stream 

! Cancel read and exit 

! Write formatted message to output 

' Get record from primary input stream 


e 
AF record without validation 


Set process UIC 

Set username in JIB and P1 space 
Set terminal name in PCB 

Set SYSPRV reel toge 
Clear SYSPRV privilege 

Exit process . 

Find day of week from 64-bit time 
Get user's mail count 

Password masher 

Validate password against UAF record 
Retrieve a user record 

Perform a security audit 

Check for suspect/intruder 

Parse DCL command 

Check if entity present 

Get value from command Line 

Clean up after parsing 


descriptor of physicel terminal name 
True if SYSSINPUT is a terminal 
Channel assigned to SYS$INPUT 
Particular characteristics 


INT 


2 


. 
o 
. 
a 
- 
. 
o 
. 
o 
+ 
° 
. 
@ 
os 
* 
» 
o 
. 
~ 
o 
oe 
. 
. 
- 
e 
. 
oe 
. 
. 
. 
. 
. 
e 
7 
° 
© 
° 
e 
. 
o 
- 
° 
° 
om 
. 
e 
© 
« 
. 
o 


54 


- 
. 
© 
e 
. 
’ 
. 
a 
. 
. 
. 
o 
7 
o 
- 
oe 
. 
* 
7 
° 
- 
° 
. 
. 
. 
. 
. 
. 
° 
. 
ce 
. 
° 
. 
@ 
. 
° 
. 
° 
. 
o 
. 
. 
. 
*. 
7 
o 
. 
. 
. 
. 
. 
. 
. 
o 
. 
° 
. 
cs 
. 
. 
+ 
° 
o 
. 
. 
° 
~ 
6 
- 
. 
+ 
o 
. 
° 
. 
° 
. 
. 
. 
o 
. 
& 
. 
a 
7 
. 
7 
o 
. 
a 
. 
e 
. 
. 
- 
_ 
. 
° 
« 
. 
° 
. 
wo 
. 
@ 
. 
* 
. 
a 
. 
° 


INTERACT 
V04 


285 


OOOO OMMOMWOo 
SSEIS 


Fwn— 


Mororonrorepsrororofory 


309 


Www 


AAA 
PORIPIPOR tO Ot os 
FUN OC OONOUEWN So 


PAEAEAEAAAAAAAS 


SSSSSSSSSSSSSSER5502LEE. 
02 09 09 09 09 09 09 0008 SI NINN NINN NOOO 
BDNAVEWN OCONOULS WN OOO~ 


PAPAAASAO 


070 


~N 
oO 
= 


Sooooooqooooooooooooo 
SSN NSS SS SSS 
MORON) a se 1 OOOOO 


WO OCONOAUES WO VOONOUM 


EXTER 


ee ee en ee Eee SS S| 


ev_char_2: 
ob_type, 
uaf- record: 


term_name: 

clu, kore name: 
input. 

input. rebs 

output. fab: 

ctlda ag. “clidata, 
sys$gb_pwd_tmo: 
sys$gb_retry_lim: 
sys$gb_retry_tmo: 


ppd = ctl$ag_clidata: 


Literals 
LITERAL 
bell = 7, 
bs = 8 
cr = 18, 

lf = 10; 

NAL LITERAL 
cli$_defaulted, 
igi$_connerr, 
lgi$_disreconnect, 
lgi$_evade, 
igi$_s yspwdtmo, 
igi$_ chat ive. 
igi$_defcli 
(gi$-notvalid, 
igi$_userauth; 


OWN storage 


user_buff : VEC 
username : VECT 
connect_name_bu 
connect_name ‘ 


<—OoO- 


connect _check : 


GLOBAL 


cli_name_buffer: 
table_name_buffer: 
disk_name_ Buffer: 
com_name_buf fer: 


issectate 0th 


for 
Address of UAF record 
AB for UAF 


ar 


Translation of SYS$INPUT 
Translation of SYS$SOUTPUT 
Descriptor of failing password 
Descriptor of terminal name 

piper of cluster terminal name 


Number of seconds to wait for retries 


Address of PPD structure 


Carriage return 
ne feed 


Qualifier was defaulted 
cannes $100 failed 
/CONNECT not legal 
evasion in progress 
invalid user a 
illegal options on captive account 
/CLI and /TABLES not 
nvalid user authorization 
invalid user authorization record 


£9 user_buff), 
-BYTET, 
: bescriptor of connection device 


nect _name oputrer? 
' True if /CONNECT 


INTERACT ep-1984 01:55: AX-11 Bligs-32 V4.0- P 
V4 000 if: £01984 93:27:89 = HASGIN. BAGS ENTE RACH oasde1 age 5 
cli_name: ) ! Descriptor of user CLI name 
»cli_name -buffer) 
table_name: ' Bescriptor of CLI command table 
table_name -buffer), 
disk_name: t Descriptor of user disk name 
disk_name -buffer 
_—— of user login proc 
com_name_buffe 


IALT false); 4 frue if /NOCOMMAND 


be bs 4s wd 


com_name: j 
f 


com_negated: 


> 
o 


1b-se9-1984 91:39:30 AX- 2 Page 8 


14-Sep-1984 
GLOBAL ROUTINE init_interactive: NOVALUE = 


Initialize an interactive job by requesting the usename 
and password from the terminal associated with the process. 
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Inputs: 
None 
Outputs: 


uaf_record = Address of UAF record for user 
(may be zero if no UAF record read, but login ok) 


po feel e lol olelolelelololeloloaloa) 


SNS 
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LOCAL | 
status, 
arglist : VEC 

INI - 0) 
retry_count : iNITIAL(O), ! Number of retries 
buffer; ' Buffer for dummy read 


' 
Set initial username of <Llogin> 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
07 
07 
64 P 07 SCMKRNL(ROUTIN = set username, ! Set initial username of process | 
65 07 ARGLST = SDESCRIPTOR('<login>')); 
66 07 
7 07 ' 
44 Open the output and input files. 
70 07 SCMEXEC(ROUTIN = open_output); ! Open output file 
4 678 SCMEXEC(ROUTIN = open_input); ! Open input file 
n 077 ! 
74 077 ! Now check the input device to see if it is a terminal. If not, 
75 077 ! then tell the user to buzz off. This is so that no matter what 
76 077 ! a user does, it is not possible to ask for a password from a file. 
77 077 ! This helps to discourage people from putting their passwords on a 
ue OF disk somewhere. 
80 77 IF .$BBLOCK Einpuc. febCtabst dev], dev$v_fod] 
81 077 THEN SIGNAL_STOP(Lgi$_userauTth) ; 
ee | 
84 $78 ! Set the job type according to the characteristics of SYSSINPUT. 
85 078 ! Set no initial typeahead purge for remote terminals. 
ry] 4 : Set terminal name in PCB. 
88 7 IF .terminal_device 
89 7 THEN 
90 7 BEGIN : 
91 078 IF .dev_char_2Cdev$v_rtt] ! If remote terminal, 
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INTERACT 18-Sep-1984 01:55:5 AX-11 Bliss- | 
v04=000 12-08-1382 95:23:39 «HANGIN ShESER ; Page 53 
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. 


9 90 
32 33 job t jibs t ! Set job 

ob_type = jib$Sc_remote; ! Set job type to remote 
B? 38 n ut_rabCrab$v_pta] = 0; ! Set no initial typeahead purge 
97 95 ELSE | 
3 39 IF d dep_2(tt2$v_ dialup] ! Else if dial inal 

-dev_dep_ v_dialu ! Else alup terminal, 

400 98 THEN job_tyBe = {ib8c_aiatup ' Set job type Fo dialup 
$83 99 ELSE ob_type = jib$c_local; ! Else set 1Ob type to local 
494 set_term.name(); ! Set terminal name in PCB 


1 
Process the system password if there is one. 


| 
get_syspwd Q; 
' j 
Write the system announcement if it exists; else write a blank Line. 


IF NOT write_announcement (ZASCID *SYSS$ANNOUNCE') 
THEN write_output (UPLIT (0, 0)); 


WHILE true DO 
BEGIN 
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cli_name(0) = 0; 
cli-name(1] = cli_name_buffer; 
table_name[0) = 0; 
table_namel1]) = table_name_buffer; 
disk_name = 0; 
disk-namel1} = disk_name_buffer; 
com_negated = false; 
con_neneny = 0; 
com_namel1]) = com_name_buffer; 
connect_check = 0; 
Senness.naneL ti = 0; 
connect_namel1J = connect_name_buf fer; 
' 
7 ! If interactive process, and no automatic login is requested for this 
3 ; terminal, then prompt for username & password and read UAF record. 
440 status = auto_login (); ! See if autologin 
1 IF NOT .status 


AN. .status NEQ lgi$_userauth 
AND .status NEQ |gi$_notvalid ! If not autologin, 
THEN status = interactive_validation (); ! try regular interactive. 
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| ! 
Reset all status information regarding login qualifiers each loop... 
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! Check the DISUSER flag here so that we stay in the retry loop if it's 
e 


!' set. This preserves the consistency of “invalid user’’ behavior for 
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INTERACT 16-Sep-1984 01:55: AX=-11 Bliss-32 V4.0-742 Page 10 INT! 
¥04"000 12286-1384 93527589 LOGIN. SRCVINTERACT 83251 . 3 v04 
; 449 847 ! the DISUSER flag. Also, this way attempts on disabled accounts are o4 
3 <3 Bs detected by breakin detection. 4 
3; § § 5 ae 
3; 4 Bees IF .status ial 
> 454 0 § AND .uaf_record NEQ 0 4 
; 455 085 HEN | 
; 456 bee 4 BEGIN ; 
> 457 855 4 IF .uaf_record(uaf$v_disacnt] an 
; 458 Bae8 5 AND (CHSNEQ (6, UPLIT BYTE (* OPAO:'), .phy_term_name(0], .phy_term_name[1)) iY 
; 459 0857 5 OR CHSNEQ (6, UPLIT BYTE (*SYSTEM'), uafSS_username, uaf_record(uaf$t_username], ' ')) ; | 
: 460 O88 4 THEN status = [gi$_notvalid; | 
; 461 5 END; ; | 
; re | 0860 ee | 
; 46 0861 ! a 
; 464 Bag ! Now run the login attempt against breakin detection. We inform | 
; 465 086 ! the CIA scan whether the login is successful so far; it informs | er 4 
: 466 0864 ' us if the subject is an intruder or not. s 
; 467 0865 : | | 
; 468 0866 | = 
: 469 0867 IF NOT .status ; | 
: 470 0868 THEN a 
3 «471 0869 4 BEGIN | 1 
: 472 0870 4 arglist(1]) = 0; ! Want a suspect scan | s | 
; 473 P 0871 4 IF NOT SCMKRNL (ROUTIN = cia_scan, ! If evasion is in effect ; 
> 474 0872 5 ARGLST = argTist) 5s 
; 475 0873 4 st 
: 476 0874 5 BEGIN a s | 
3: 477 P 0875 5 SCMKRNL (ROUTIN = set_username, ! Set up username unconditionally oe § 
; 478 0876 5 ARGLST = username); : ; 
3; 479 0877 5 security_audit(nsa$k_rectyp_logb); ! then audit the breakin e | 
; 480 P 0878 5 SCMKRNL TROUTIN = set username, _! Reset process name : | 
; 481 0879 5 ARGLST = SDESCRIPTOR('<Login>')); : | 
: 482 0880 4 END; ; 3 { 
> 483 0881 4 IF .status EQL lgi$_notvalid ! If this was a password failure | 
3 484 0882 4 AND .uaf_record NEQ 0 / sf 
3: 4485 0883 4 THEN update_uaf_record(); ! Update the login failure count | 
; 486 0884 4 s 
; 487 0885 3 S e | 
; 488 0886 4 BEGIN . :. | 
: 489 0887 4 arglist(1) = 1; ! Look for an intruder ag 
; 490 P 0888 4 IF NOT SCMKRNL (ROUTIN = cia_scan, | 
: 491 0889 5 ARGLST = arglist) 3 | 
: 49 Bane 4 THEN a4 
; 49 891 5 BEGIN 4 
> 494 98 5 status = lgi$_notvalid; | 4 
3 495 0893 5 ppdtppdst stStatus] = lgi$_evade; | 
: 4% 0894 4 D; 
; 497 0895 END; 
: 498 +43 
; 499 089 IF .status ' If all done, 
: $00 0898 THEN RETURN; ! then go away. 
; 28} 0899 
; 4 900 ‘ : : Q 
; 50 901 ! If the login attempt did not succeed, check to see if the retry count 
; 504 4 ! has been exceeded. If not, then change the severity to informational, 
; 505 90 ! so that we continue after signalling. Otherwise, when the signal of 
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retry_count = .retr 
IF .retr _count LSSU~ 
THEN status = 
SIGNAL (.status); 


tus 
SCMKRNL (ROUT IN 
ARGLST 


input_rab Crab$v -pmt] = 0; 


Status 


count + 


.$ys$qb hers 


ND NOT steSn severity 
R sts$k_error; 


userna e; 
CRIPTOR( <login>*)); 


with a timeout 


input_rabCrab$v_rne 


input_rabCrab$w_usz] 
input_rabCrab$l—ubf) 


4; 
buffer; 


get_input (inpuf_rab, 1); 


“ND; 
END; 
3E 
55 4F 4E 
3E 
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Ieseectate 0:88: 


the severe error occurs, the process will be terminated. 


41:0 


! Update retry count 


i If we can retry again, 
) ! then make the 
1 an informational 


! and signal it. 
! Reset process name 


If control returns to here rier signalling, then hang a read out on 
the terminal, 


' No prompt 


! and don't echo anything 


! Wait for next input 
! End of WHILE TRUE loop 


- TITLE 
- IDENT 


-PSECT 


-ASCII 
-BLKB 
«LONG 
-ADDRESS 
-ASCII 
- LONG 


INTERACT 
\v04-000\ 


$PLITS,NOWRT ,NOEXE ,2 


\<login>\ 


P.AAB 


\SYSSANNOUNCE\ 


17694732 


eee P.AAD 


1 
. 

SS clog! 
\<iog n>\ 
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LONG 
HODRESS P.AAK 


-PSECT 


00000 esamabl 
00000000 00020 USERNAME 


00000000' 


00038 CONNECT_NAM 


SOWNS ,NOEXE ,2 


32 


0 
ADDRESS vreR _BUFF 
E_BUFFER 


AX-11 BL 
LOGIN.SR 


od 
INTERACT 16 
v04-000 14 


00000000 00050 


00000000" 00054 
00000000 00058 


00000 
00050 
000A0 
000C8 
00000000 0014¢ 


00000000" 00150 
00000000 00154 
00009000" 00158 
00000000 0015¢ 
00000000" 00160 
00000000 00164 
00000000" 00168 

00 0016C 


-BLKB 
CONNECT_NAME : 
«LONG 0 
.ADDRESS CONNECT_NAME_BUFFER 
CONNECT_CHECK: 
. LONG 
-PSECT $GLOBAL$,NOEXE,2 
CLI_NAME _BUFFER:: 
TABLE_NAME BUFFER: : 
.BCK 0 
DISK_NAME tte 
COM_NAME_ BUFFER: : 
“BLKB. 132 
CLI_NAME: : 


-LONG 0 
-ADDRESS CLI_NAME_BUFFER 
TABLE _NAME: : 


«LON 0 
ADDRESS TABLE_NAME_BUFFER 
DISK_NAME : : 


: 0 
“ADDRESS DISK_NAME_BUFFER 
COM_NAME: : 


«LON 0 
-ADDRESS COM_NAME _BUFFER 
emt 2° 


TE 0 
.EXTRN OPEN_INPUT, OPEN OUTPUT 
.EXTRN GET_OAFREC, UPDATE_UAF_RECORD 
-EXTRN WRITE_FILE, WRITE _OUTPOT 
SEXTRN WRITE-TIMEQUT, WRITE_FAO 
SEXTRN GET_INPUT, SET_UIC 
-EXTRN SET USERNAME, SET_TERM_NAME 
“EXTRN SET SYSPRV, CLEAR ™SYSPRV 
-EXTRN EXIT PROCESS, LIBSDAY_OF _WEEK 
-EXTRN MAILSGET_NEW COUNT 
~EXTRN LGISHPWD> LGTSCHECK_PA 
-EXTRN LGISSEARCHUSER, SECORITY_AUDIT 
“EXTRN CIA_SCAN, CLISDCL_PARS 
SEXTRN CLISPRESENT, CLISGET VALUE 
SEXTRN CLISEND_PARSE, PHY_TERM_NAME 
“EXTRN TERMINAL DEVICE 
-EXTRN INPUT CHAN, DEV_DEP 2 
~EXTRN DEV_C 2, JOB_TYPE 
-EXTRN UAF"RECORD, UAF-RAB 
“EXTRN UAFFAB, SYS$I 


PuT 
[EXTRN SYSSOUTPUT, FAIL PASSWORD 
TERM CLU_TERM_NAME 


0 FAB, G_CLIDATA 
SYSS$SGB"PWD_TMO, SYSS$GB_RETRY_LIM 


N 7 
INTERACT 16-Sep-1984 01:55:5 AX-11 Bliss-32 v4 
04-000 1o- 80071382 93:27:3 AUGIN.GRCTINTERACT BSo—1 
EXTRN CLIS$_DEFAULTED, LGI$_CONNERR 
EXTRN LGI$ =DISRECONNECT 
EXTRN LGIS-EVADE, LGI SYSPUDTHO 
EXTRN LGIS$-CAPTIVE LGTS, DEFC 
EXTRN LGI$"NOTVALID, PAS SEERAUTH 
EXTRN SO SSTMERMC SYSSCMEREC 
.PSECT $CODE$,NOWRT,2 
OFFC 00000 ENTRY INIT. INTERACTIVE, Save R2,R3,R4,R5,R6.R7.- 
B 000 G 8F DO MOVL seen’ NOT VALID R11 
a eittddittds 09 0009 MOVAB  SET-USERNAME. R10 
59 900000006 0 9E 0001 MOVAB INPOT Pabeee "a9 
58 000000006 00 9€ 0001 MOVAB AYSSCRKRHL “RB 
57 0000' cf H 00016 MOV Soe R7 
SE C ¢ 9002 SUBL2 #127 SP 
04 AE 01 7D 00026 MOV ARGLIST 
56 94 0002A CLRB RETRY COUNT 
0000' CF 9F 0002C¢ PUSHAB P. AAA” 
5A DD 00030 PUSHL R10 
68 02 FB Boose CALLS we SYSSCMKRNL 
7E 04 0003 CLAL (SP P) 
000000006 00 9F 00037 PUSHAB OPEN 
000000006 00 02 FB 0003D CALLS #2 SYSSCHEXEC 
E D4 00044 CLAL (§p) 
000000006 00 9F 00046 PUSHAB Ope 4 INPUT 
00000000G 00 02 FB ed CALLS oe SYSSCMEXEC 
OD 000000006 00 06 £1 0005 BBC INPUT FAB+65, 1$ 
000000006 8F DD 00058 PUSHL #LGI$_USERAUTH 
000000006 00 01 FB 00061 CALLS ai, L oP 
34 000000006 00 €9 00068 1$: BLBC ‘TERMINAL DEVICE, 5$ 
OD 000000006 00 02 E1 O006F BBC ’ , tH _2, 28 
000000006 00 05 00 00077 MOVL JOB“ TYPE 
03 «Ad 20 8A OO07E BICB2 #35, INPUT_RAB+7 
18 11 00082 BRB 
000000006 00 95 00084 2s: TSTB = DEV_DEP_2+1 
09 18 O008A BGEQ 46s 3$ 
000000006 00 04 00 0008¢ MOVL #4, JOB_TYPE 
07 11 0009 BRB 4$° 
000000006 00 03 D0 00095 3s: MOVL #3, JOB_TYPE 
000000006 00 00 FB 9409¢ 4$: CALLS #0, Ser “TERM_NAME 
0000v CF 00 FB OOOA3 5S: CALLS #0, GET SYSP@D 
0000" CF 9F OOAB PUSHAB P.AA 
0000v CF 1 FB AC CALLS #1, WRITE_ANNOUNCEMENT 
0B 0 f 90081 BLBS RO, 6$ 
0000" CF SF 000B4 PUSHAB P.AAE 
000000006 00 01 FB 00088 CALLS #1, WRITE_OUTPUT 
67 p4 OOBF 6$: CLRL. — CLE_NAM 
04 A? FEB C7? 9€ 000C1 MOVAB CLI NAME BUFFER, CLI_NAME+4 
08 A? D4 00C/ CLRL. «TAB 
oc A? FFOS C7? 9E OOOCA MOVAB TABLE “NAME BUFFER, TABLE_NAME +4 
10 AZ ps 9000 CLRL. DISK_RAME ~ 
14 AT FF54 C7? 9E 000D MOVAB DISK"NAME BUFFER, DISK_NAME+4 
20 A? 94 00009 CLRB COM RE EGATED 
18 A? 04 000DC CLRL_  COMNAME 
« 6 FF7C C7? (9E OO0DF MOVAB COMTNAME_BUFFER, COM_NAME+4 


Oo 
oo 
_ 


Se Se Se Se Se Se Se Se Se Se Ge Ge Se Ge Se Be Se Se Se Fe Se Be Se Ge Se Be Se Se Be Se Se Se Se Be Se Se Se Be Be BeBe Fe Se Se Se Se Se Se 


COoooooooo 
000000000900 0090000 
rorerorerereororneny 


OONOVULSWN— W 


B 
INTERACT 18-56 -1984 01:55:5 AX-11 Bliss-32 V4.0-742 
v04=000 1o-ge8-1 387 3 23:39 LOGIN. SRCJINTERACT .B3251 
0 ' CF D4 O00ES CLRL  CONNECT_CHECK 
'" ¢€F D4 000E9 CLRL_ CONNECT-NAME 
9000" CF 00' CF 9E OO0ED MOVAB CONNECT-NAME BUFFER, CONNECT_NAME+4 
000Vv gf e OF4 CALLS #0, AUTO_LOGIN 
5 DO 000F9 MOVL RO. STAT 
19 EB OOOFC BLBS STATUS, 8$ 
000000006 8F 5 D1 OOOFF CMPL STATUS. #LGI$_USERAUTH 
Op 43 106 BEQL ¢ 
58 p4 10 CMPL TATUS, R11 
8 1 108 BEQL 
0000v CF 0 FB 0010D CALLS #0, INTERACTIVE_VALIDATION 
5 Q D0 11¢ MOVL R 
B E 115 7$: BLBC STATUS, 11$ 
000000006 90 D3 0118 8$: TSTL - UAF_RECORD 
1 OiiE BEQL 10$ 
54 000000006 00 00d 001 MOVL UAF RECORD R4 
23 01D4 C4 04 €1 00127 BBC #4," 468(R4S, 10% 
50 000000006 00 60 0012p MOVL_ PHY_TERM_NAME+4, RO 
000000006 00 00 0000° CF 08 20 Bole CMPCS #6,” P.AAF, #0, PHY_TERM_NAME, (RO) 
0B 12 00140 BNEQ 9$ 
20 20 0000" CF 06 2D 00142 CMPCS #6, P.AAG, #32, #32, 4(R4) 
04 AG 0149 
03 13 00148 BEQL 10$ 
55 5B 00 00140 9$: MOVL R11, STATUS 
43 55 £8 00150 108: BLBS STATUS, 13$ 
08 AE D4 00153 118: CLRL ARGLIST+4 
04 AE 9F 00156 PUSHAB ARGLIST 
000000006 00 9F 00159 PUSHAB CIA_SCAN 
68 02 FB 0015F CALLS #2, SYSSCMKRNL 
1B 50 £8 00162 LBS 12$ 
0000' CF SF 0016 PUSHAB USERNAME 
5A DD 00169 PUSHL 
68 02 FB 0016B CALLS #2, SYSSCMKRNL 
04 DD 0016E PUSHL #4 
000000006 00 01 FB 00170 CALLS #1, SECURITY_AUDIT 
0000" CF 9F 00177 PUSHAB P.AAH 
5A DD 00178 PUSHL R10 
68 02 FB 0017D CALLS #2, SYSSCMKRNL 
5B 55 01 00180 12$: CMPL = STATUS, R11 
32 12 0018 BNEQ 14 
000000006 00 05 00185 TSTL | UAF_RECORD 
A 13 00188 BEQL 
000000006 00 0 fe 00180 CALLS #0, UPDATE_UAF_RECORD 
a 194 RB 
08 AE 1 pd 00196 13$:  MOVL #1, ARGLIST+4 
04 aE F O019A PUSHAB ARGLIST 
000000006 9F 0019D PUSHAB CIA_SCAN 
8 : FB 1A3 CALLS #2, SYSS$CMKRNL 
: F 1A BLBS sR 
B 09 1A MOVL R11, STATUS 
000000006 o¢ 000000006 BF D Oiac MOVL #LGI$ EVADE, PPD+24 
4 5 £8 01B7 14$:  BLBS STATUS, 16$ 
36 6 OO1BA INCB —s- RETRY_COUNT 
000000006 00 6 91 O18 CMPB  —s- RETRY COUNT, SYSS$GB_RETRY_LIM 
08 1E O01C BGEQU 15$ 
50 55 CB 001C BICL3 #7, STATUS, RO 
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INTERACT 16-Sep-1984 01:55:5 AX-11 Bliss-32 V4.0-742 Page 16 
v04-0 1228671382 93323539 LOGIN. SRCJINTERACT .B3251 ' (4) 
; 0 927 1 ROUTINE auto_login = 
: $3) 958 1 =the 
: 338 38) 
; 2 4 O95) 7} Check if any automatic login has been specified for the current 
3 5 09 § 1 $ terminal in SYSALF.DAT. If so, obtain the UAF record without 
; 2 § 94 ? : } prompting for username. Password is still checked if present. 
: 538 935 1! Inputs: 
: 386 $9 g 13 ; | 
; 540 09 1} sysalf_fab/rab = FAB/RAB for SYSALF file 
; 541 baee . 3 input_rab = RAB for terminal stream 
3 et§ 0939 1! 
; 54 0940 1 ! Outputs: 
> 544 0941 1! 
; 545 Beeg . 2 routine = True if automatic login enabled, else false 
; ee8 0943 1! 
; «54 0944 1! If automatic login enabled, 
; 548 0945 1! 
; 549 0946 1! uaf_record = Address of user's UAF record, if automatic login enabled. 
; 550 0947 1! The typeahead buffer is cleared. 
ye: 0948 1 !--- 
; 226 0949 1 
; 55 0950 2 BEGIN | 
; 554 0951 2 
3 399 8236 § LOCAL 
; 556 095 status 
; 557 0954 : status, 
3; 338 0955 sysalf_fab: BBLOCK Cfab$c_bin], ! FAB for auto-login file 
; 559 0956 2 sysalf_rab: BBLOCK Crab$c_binJ, ' RAB for auto-login file 
; 560 0957 2 buffer: BBLOCK ob 13c—tengthd. ' SYSALF record buffer 
3 ge) 3338 § input_buffer: VECTOR (128,B8YTEI; ! Input buffer | 
; 268 P 0960 § SFAB_INIT(FAB = bypel{.fet. 
; 364 P 0961 FNM = ‘SYSALF* : pr jeer filespec | 
; 565 P 0962 2 DNM = 'SYSSSYSTEM:.DAT’, i Default filespec 
; 566 P 0963 2 SHR = (GET,PUT,DEL.UPD), ' Set sharing options 
3 «6367 0964 2 ORG = IDX); ! ISAM file 
; 568 0965 2! : , 
: 369 0966 2 ! Disable group and process logical name translation for the open. This 
; 270 344 2 ; must be done manually, since SFAB_INIT doesn't know about this. 
3 276 a4 s sysalf_fabCfab$v_lnm_mode] = psl$c_exec; 
; 574 P 0971 SRAB_INIT(RAB = sysalf_rab, 
3 De P 4a FAB = sysalf_fab, ! Address of associated FAB 
: 576 P 097 RAC = KEY, ' Keyed record access 
s Siv P 0974 KRF = ' Reference by key #0 
; 578 P0975 2 USZ = alf$c_length, ! Size of entire record 
; 579 P 0976 UBF = buffer, ! Address of record buffer 
; 580 P 0977 KSZ = alf$s_devname, ' Size of key fiel 
; ne 444 KBF = buffer Calf$t_devname]); ! Address of key field 
3 588 44:41 set_sysprv(); ! Enable SYSPRV so we can access file 
3 Ses 098 IF NOT SOPEN(FAB = sysalf_fab) ! Open SYSALF file, if possible 
; 586 098 THEN 


enact 
v04-00 


status = $GET(RAB = sysalf_rab); 
SCLOSE(FAB = sysalf_fab); 
clear_sysprv(); 

IF NOT .status 

RETURN .status; 

IF .input_rab Crab$v_pta] 

THEN 

BEGIN 


put_r 
input_rab rab$v_pta] = 0 
E 
CHSMOVE (uaf$s_username, 
buf ferlalf$t_username], 
user_buff); 
username (0]7= uaf$s_username; 


WWWAAN IAIN AIWIAIRIPUPUPINININPIPUNPID 2 OO OS 
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te sa 


status = get_uafrec (username) ; 
IF .uaf_record EQL 0 


cl ae ed ed ee ed ee a ae ed cee ce ce ee ca a ed ee ee ce ce ee ee ed ee ed ee ee ee 
fee ee ele wel ala wl elo eee oie fejeleieioleloleleleleleleleleloleololoelololo) 
SOOWNA NEW 0 COONAN EWN 0 ODNOUE WN" OOCONOAU EWR 
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7 0984 BEGIN 
8 985 clear sysprv(); 
) 9 § RETURN false; 
90 9 END; 
33 $386 IF NOT ¢ SCONNECT (RAB 
status = = 
238 $386 THEN 
ae 0991 BEGIN 
95 4444 IF _ .status EQL rms$_crmp 
239 099 THEN 
97 0994 BEGIN 
598 995 sysalf_fab Cfab$w qbcd = 
599 996 status = SCONNECTTRAB = 
600 0997 END; 
601 0998 IF NOT .status 
one 0999 THEN 
60 1000 BEGIN 
604 SCLOSE(FAB = sysalf_fab) 
605 clear_sysprv(); 
606 RETURN talass 
607 END; 
608 END; 
60 


CHSCOPY(.clu_term_name(0J, .clu_ 
‘ ', .sysalf_rab Crab$b_ 
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! Drop SYSPRV on exit 


sysalf_rab)) ! Connect to stream 
! If global buffers error, 


0; ' Turn off global buffers 
sysalf_rab); ! Retry connect to stream 


3 ! If error, close file 
' Drop SYSPRV on exit 
!' and return unsuccessful 


! Copy terminal name to key field 
term_name(1], 
ksz], .sysalf_rab Crab$l_kbf]); 
' Read record keyed by terminal name 
! Close file (error or not) 
! Drop SYSPRV on exit 


If no record found in file, 


then return unsuccessful 


! If typeahead purge still do be done, 


input_rab Crab$w_usz] = 128; 

input_rab Crab$l_ubf] = input_buffer; 

input_rab Lrab$b_tmo] = 0; ' Purge the input typeahead buffer 
input_rab Crab$v_pmt) = 0; ! to get rid of unsolicited 
et_input(in ab, 0); : character that started the job 


Turn off typeahead purge 


. ! 
neut reo rab$b_tmo] .$ys$gb_retry_tmo; ! and reset timeout period 


! Setup descriptor of username 
' Get UAF record for user 
! If no uaf record 


IN] 
vO4 


INTERACT 
v04-000 


: 6446 1041 THEN 
; 645 1 4 BEGIN 
; 646 104 IF ,status ! 
; 64 1044 THEN RETURN false ! 
; 648 1045 ELSE RETURN lgi$_userauth; : 
; 649 19e8 END; 
: 650 \3¢ 
3 69) P 1048 On, a = set_username, ! 
5 626 1049 ARGLST = username); 
3 6) 1050 
; 654 1051 status = get_password (0); ' 
; 635 105¢ status! = get_password (1); i 
; 6 ° 105 
3 6) 1054 IF NOT .status ' 
; 658 1055 OR aoe .Status1 ! 
; 659 1056 TH 
; 660 1057 
; 661 1058 RETURN lgi$_notvalid; ! 
3 O66 1059 
; 66 1060 
; 664 1061 IF NOT .uaf_record Cuaf$v _disreconnect] ! 
: 665 1996 THEN connect_check = 1; ' 
; 666 106 
; 667 1064 RETURN true; ! 
; 668 1065 2 
3; 669 1066 1 END; 
46 4C 41 53 59 53 00058 
54 41 464 2E— 3A 4D 45 54 53 59 53 24 53 59 53 OO0SE 
OFFC 00000 
5B 00000000G 00 9€ 0008 
SA 4 $4 $54 43 00 9E 0000 
59 0000 BRe 00 9E gn 19 
58 O° CF 9E 1 
57 00000000G 00 9E ahs 
5E FE6C CE 9E 000 
0050 =F 00 6E 00 2C 00028 
9 AD 0002F 
A 50 ef 8 0031 
A OF 02 F B 8 7 
69 90 0003D 
2 90 00041 
CF 9E 8 45 
F 9 48 
F B BRe) 
. - 057 


! If this is OPAO: and the UAF is gronked 


punt the auto-login 
otherwise return invalid user 


Set username of process 

Acquire and validate primary password 
Acquire and validate secondary password 
If invalid password 

Return an error 

If reconnections are not inhibited 


then do connection checking 
Return successful 


-PSECT $PLITS$,NOWRT,NOEXE,2 
P.AAL: .ASCII \SYSALF\ 
P.AAM: ASCII \SYSSSYSTEM:.DAT\ 
.EXTRN SYSSOPEN, SYSSCONNECT 
SEXTRN SYSSCLOSE, SYSS$GET 
.PSECT S$CODE$,NOWRT,2 
AUTO_LOGIN: 
.WORD Save R2,R3,R4,R5,R6,R7,RB8,R9,R10,R11 
MOVAB CLEAR SYSPRV, R11 
MOVAB SYSS$CCOSE Rion 
MOVAB SYSS$CONNECT, R9 
MOVAB USERNAME, R& 
MOVAB INPUT RAB+4, R7 
MOV -404(5P), SP 
MOVCS #0, (SP); #0, #80, SRMS_PTR 
MOVW 4 3, SRMS_PTR 
MOV ; SRMS BrRs22 
#32, vad PTR+ 
MOV #2, SRMS pT 
P.AAL, Sedsihas 
P.AAM, SRMS~PTR+4 
niBeo: SRMS"“PTR+5 
, #0, #2, ~SYSALF_FAB+74 


0927 


0964 


0969 | 
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INTERACT 18-5 Sep 
046008 14-Sep 
0044 «BF 00 6E 00 2c 5D MOVCS 
roe ) 64 
res CD 4401 f 88 67 MOVW 
AD 1 oS MOVB 
Bf AD 80 F 9B Q00 MOVZBW 
AD 4 cE 3 07 MOVAB 
9C AD 080 C 3 4 MOVAB 
| AD 3F 9 MOVB 
A AD BO AD 9E 00087 MOVAB 
000000006 00 00 FB 000 § CALLS 
BO AD 9F 0009 PUSHAB 
000000006 90 gf FS $896 CALLS 
C 0 3 9D LBC 
FF6C CD 9F QOOAD PUSHAB 
69 9 FB QO0A4 CALLS 
56 0 DO QO0A7 MOVL 
ts 56 €8 OOOAA BLBS 
0001C14C F 56 D1 OOOAD CMPL 
0D 12 00084 BNEQ 
F8 AD B4 00086 CLRW 
FF6C CD 9F 00089 PUSHAB 
9 01 FB 4 CALLS 
6 50 00 if MOVL 
0c 56 €8 000C3 1$ BLBS 
BO AD 9F Q000C6 PUSHAB 
6A 01 FB 000C9 CALLS 
68 00 FB OOOCC 2$: CALLS 
OOCE 31 OOOCF BRW 
51 000000006 00 00 000D2 3$: MOVL 
50 A AD 9A 00009 MOVZBL 
50 20 61 00000000G 00 2C 000DD mMOVCS 
9C ~=ss« BD QO0E6 
FF6C CD OF OOOES PUSHAB 
000000006 00 01 FB BOes CALLS 
56 7 DO OOOF MOVL 
BO 9F OOOF6 PUSHAB 
6A OY FB QOOF9 CALLS 
68 00 4) OOOFC CALLS 
04 56 €E8 OOOFF BLBS 
50 56 D0 Ba 88 MOVL 
04 0010 RET 
29 03 =A? 05 4 00106 4$: BBC 
1¢ A7 80 8F B 001 MOVZBW 
20 A? oF 9E 0011 OVAB 
18 A? 94 00114 CLRB 
03 A7 4 oF 8A 00117 BICB2 
3 D4 0011C CLAL 
FC A? 99F OOTIE PUSHAB 
eneed ’ 00 ‘ FB 4 1 CALL 
0 A? Sh 128 BICB 
18 A? 000000006 3 9 012C MOVB 
EO AB 00BF ce 28 00134 5$: mMOoVC3 
6 0 o0 138 MOVL 
8 0D 1 f PUSHL 
000000006 90 4 F 14 CALLS 
6 0 00 00147 MOVL 
00000000G 00 D5 OO14A TSTL 
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LOGIN. SRCJINTERACT.B32; 1 
#0, (SP), #0, #68, SRMS_PTR 


#1, $RMS_PTRT30 
LA 


SYS 

#0, SET AB, $R 
SYSALF 

#1, 

R 

SYSALF_RAB 

#1, SYSSCONNECT 
RO, STATUS 
STATUS, 3$ 
STATUS, #115020 
SYSALF _FAB+72 
SYSALF-R 
SYSSCONNECT 


LOSE 
H » CLEAR, SYSPRV 
TERM_NAME+4, R1 
sty E RBs 


YSALF RO 
air TERR NAME, (R1), #32, RO, - 


aS YSALF RAB+48 


SYSSCLOSE 
#0, CLEAR SYSPRV 
TUS, 4$ 
STATUS, RO 
INPUT phe? 5$ 
158 INPOT_RAB+32 
Input BUFFER, INPUT_RAB*36 


NPUT"R 
#64 INPUT _RAB+7 
(sh 


We "CET 
é 6 PaaS +7 
vs$on" RETR TMO, INPUT RAB+31 
Hi: COrreRs g5, USER_BUFF 
é 
Ger UAFREC 
40 TATUS 
UAF RECORD 
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; Routine Size: 


419 bytes, 


1 

‘8 ta 

50 000000006 8F b? 

3 

000000006 F 

000000006 00 ¢ 4 
0000v CF - 7 

56 50 bb 

01 0D 

0000v fF 1 4 
3 6 € 

98 Q €8 

0 000000006 &F RY 

50 000000006 00 D0 

0105 = c0 05 €0 

38 = AB 01 00 

50 01 00 

04 

50 D4 

04 


Routine Base: S$CODE$ + 0200 
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H of 
16-Sep-1984 01:55: AX-11 Bliss-32 V4.0-742 
14-Sep- 3B 93:2? 24) ‘39 ‘LOGIN N.SRCVIN NTERACT.B32;1 
1 BNEQ 6$ 
1 BLBS STAYS, 10$ 
> MOVL #LGI$_USERAUTH, RO 
15D 6$: PUSHL R8 
15F PUSHAB SET. USERNAME 
165 CALLS #2, ~SYSSCMKRNL 
16¢ CLRL. 2 = §P) 
16 CALLS #1, GET_PASSWORD 
01 OVL RO, STATUS 
0176 PUSHL #1 
O17 CALLS #1, GET_PASSWORD 
17D BLBC = ST TAT TUS “7 
0180 BLBS STATUSI, 8$ 
0183 7$: MOVL  &LGIS SNOTVALID, RO 
018A RET 
0188 8$: MOVL  UAF_RECORD, RO 
0198 BBS #5,7469(ROS, 9$ 
019 MOVL 1. CONNECT_CHECK 
019C 9$: MOVL #1. RO 
019F RET 
O1A0 10$ CLRL = RO 
O1A2 ET 


Bae Be Se Be Be Se Ge Ge Ge Ge Be Fe Fe Fe Ge Fe Ge Ge Se Fe Se Se Se 


De Se Oe Se Se Se Oe Be Se Se Be Se Se Se Se Se Se Se Se Se Ge Se Se FH Se Be Se Se Se SH Se Se Se SH Se Se Se Se ee Fe Se Se ee Fe Se Seen se Se Sees ee FH Se Se seas 
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; 671 1067 1 ROUTINE interactive_validation = 

3 67 1068 1 

ie mie 

: 675 1071 1: Perform interactive user validation. Prompt for the 

: ore 1976 ! } username and password, validate them, and read UAF record. 
1 i | 

i oa 

: $IB | | outputs: 

; 684 1080 1! uaf_record = Address of UAF record 

6: Se 8 tae 

: 687 1988 BEGIN 

st) 1085 5 MACRO 

: o3y 1039 string_count = 0,0,16,0 2%; ! String count field of buffer 
: 69 1088 2 EXTERNAL _ 

; 69 1089 Login_command; ! Tables describing LOGIN command 
: 694 1090 

pee 8 bee 

3 status 

: 697 1998 statusi, 

; 698 1094 desc: VECTOR (2), ' descriptor 

; 699 1095 string: BBLOCK (8) ! Varying string descriptor 
> 700 1096 buffer: BBLOCK (2+428) i Varying string buffer 

; 701 1097 VOLATILE, 

3 4 64 ; input_buffer: VECTOR (128,BYTE]; ! Input buffer 

: 704 1100 2 CHSMOVE(6, UPLIT BYTE( 'LOGIN '), input_buffer); 

; 705 1183 2 input_rab Crab$w_usz] = 128 - 6; 

: oe 1158 2 input_rab Crab$l_ubf] = input_buffer + 6; 

: A 1108 ; status = false; ! Preset parse status 

: 710 1106 string Cdsc$b_class]) = dsc$k_class_vs; ! Setup varying string descriptor 
7 711 1107 § string Cdsc$a_pointer] = buffer; 

3 at; 1108 

lz 1140 5 PO BEGIN 

> 715 1117 input_rabCrab$v_pmt] = 1; ' Set up prompt 

; 716 Wi¢ input_rablrab$v_rne] = 0; ! Echo input 

; 717 111 input_rablrab$b_psz] = 12; 

; 718 1114 input_rablrab$l_pbfJ = UPLIT BYTE (cr,\f,"Username: '); 

; 719 1115 WHILE true 

: 930 Wie & gin 

THES taepettarrttes 5 | Grotto poate tus cnt 
3 nput_rabCrab$vy_ptaJ = . ' Pu ype- 

: 738 1131 ? if’. ikeut rab Urebsw ors 2d NEQ 0 ! If | odd 0 4) input Line, 

: 726 11 é 4 EXITLOOP; ! then process the Line 

. Far 112 3 END; 
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desc [0] = .input_rab Crab$w_rsz 
desc FS} = ; 


END 
UNTIL .status; : 
cli$end_parse (); ! 


Peis ipa Ni ap a rt RR on ne a aa ath oN mene ete 


! Setup descriptor of Line 


-input=rab Crab$lirbf i with LOGIN appended to front 


status = cli$dcl_parse(desc,login_command); ! Parse the LOGIN command Line 


Status ! If successfully parsed, 
THEN ag 
BEGIN 
but fer string_count] =_0; 
string Cdsc$w_maxstrlen] = i 
clisger valet ZASC stip *CLI', string); ! Get value of /CLI 
CHSM etre ty ghee 2 cli, sbitier fatf ina. count]), 
C ame_buffer 
Saget bul tet saseio "Tk LES® string) ! Get value of /TABLES 
hsA Ttable =nane (0) = ring. count] 
buffer table fame buffer); 
cli$get value (XASCID ‘Disk’ string); ! Get value of /DISK 
IF .buffer Cstring count) NEQ 0 i If a value was specified 


THEN 


1 al 

disk e (OJ =_.buffer Cstring count] 

CHSMOVE (. buffer(Cstring count). Butters), disk poe gps 
iF dish. name_buffer(.buffer(string_count] - 1] N 


BEGIN 
disk_name_bufferl. buffer(string count]] = ':'; 
disk-namef[0] = .disk_nameLO] + 1; 
END; et: 
connect _check = cii$present (ZASCID "CONNECT'); ! Check for /CONNECT 
i THEN NOT TliSpresent (ZASCID "COMMAND ' ) : if 7NOCOMMAND , 
ese negated = true ! then disable login procedure 
BEGIN 
string Cdsc$w_maxstrlenj = 132; ' Allow yp to 132 char filespec 
el iSget. valueTZASCID AS rey aly string); Get value of /COMMAND 
coe name (0) = .buffer string count 
VE(.com_name (0), buffer+2, .com_name (1)); 
sertan tdscsw _maxstrlen] = uaf$s_u 
‘U USERNAME’ string); ! Get username string 


status = cli$get_value(ZASCID 
CHSMOVE(.buffer(String_count], 
buf fer+ 


u buff); 
username £6572 = .buffer Cstring_count); ! Make descriptor of username 


' Loop until username obtained 
Clean up after command parsing 


Check validity of username and password after prompting for both 
' to avoid revealing validity of the username by itself. 


= get_uafrec (username) ; ' Lookup the uaf record 


kK 8 

oe T 16-Sep-1984 01:55: AX=-11 Bliss-32 V4.0-7 Page 23 INT 
v04=0 1en8ep-1984 12581 LOGIN. SRCTINTERACT B55 aati si v04 
; 785 1181 status! = get_password (0); ' Acquire and validate primary password | :] 
; 78 11 ; F NOT. stetus : If invalid username . = :] 
: 78 1 THEN. RETURN {gis. notvalid; i Return an error i] 
: 788 i 4 status = get_password (1); i Acquire and validate secondary password 3} 
; 90 P 11 ° ee oe = set_username, ! Set username of process | : ! 
; 3) 1188 ARGLST = username); 4 
; 79 1189 IF .uaf fe EQL 0 ! Check for true status but no UAF ‘ 1 
3 re 1a THEN RETURN 1 ! which is an OPAO: emergency login : : 
i 196 119¢ IF NOT .status ! If invalid password st 
; 79 119 OR NOT .status1 : 4 

; 798 1194 THEN ; 
: 799 1195 BEGIN :] 
; 800 1196 RETURN Lgi$_notvalid; ! Return an error ‘ 1 
AGF Bie ee : 
; 80 1199 ce -uaf_record Cuaf$v_captive] ! If user not allowed to change things, ‘ ! 
; 804 1200 (.cTi_name EG 0 ! and he changed either CLI name, 74 
; 805 1201 ° OR -table_name [0] NEQ 0 ! or CLI table name, <4 
: 806 1508 OR .disk_fame NEQ 0 ! or DISK name, 2 4 
; 807 3 OR “oon _fiane C0] NEQ 0 ! or procedure name, . 4 

; 808 1204 OR negate ted) ! or procedure negated, : 
: oo 1693 THEN RETURN" lgi$_captive; ! return an error | : : 
; 811 1509 IF .uaf_record Cuaf$v_disreconnect)] ! If user not allowed to reconnect, ; } 

; sig 1208 THEN | ; 
; 81 1209 BEGIN i] 
> 814 1210 IF _.connect yok EQL cli$_ defaulted ! If connection checking defaulted, ‘ 1 
; 815 1211 3 THEN connect_check = 0; '" turn it off i] 
; 816 at 3 IF .connect_check ' if connection checking, :] 
; 817 1213 3 : 1 

; 818 1214 4 BEGIN : 
; 819 1215 4 IF .uaf_record Cuaf$v_captive) i] 
; 820 1216 4 THEN RETURN Lgi$_captive ' return correct i] 
; 821 1217 4 ELSE RETURN lgi$_disreconnect; ! error message : } 
; 822 1218 END; 2 
; $$? 1219 END; if 
; 825 1221 IF .uaf_record Cuaf$v_defcli] ' If user not allowed to change things, : 1 
; 826 1$$6 AND (.cTi_name E ! and he changed either CLI name, : 1 
s Ser 122 OR .table_name [0] NEQ 0) ! or CLI table name, 2] 
; 38 1585 THEN RETURN \Gi$_defcli; ' return an error : : 
; 850 1226 RETURN true; i] 
; 831 1227 1 END; | 3 | 
| 3 

| . 
-PSECT SPLITS,NOWRT,NOEXE,2 | : } 
20 4E 49 47 GF 4C 9006 P.AAN: .ASCII \,0GIN \ ; : 1 
A 9p 99 P.AAO: .BYTE 13, 10 ; i] 
20 3A 65 6D 61 6E 72 65 73 07 -ASCII \Username: \ : : ! 

007F -BLKB 1 : 
00 49 4C€ 43 00080 P.AAQ: .ASCII \CLI\<0> : 21 
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FC 


6E 


AD 


00 00 53 


00 54 43 


00 44 4E 


00 44 4E 


45 4D 41 


1¢ 
20 
F3 
F4 
03 
03 
30 
2c 


000000006 
03 


F8 
F8 
24 


000000006 


: 
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41 


4E 


0 
6 
4 


4D 


52 


0000 
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12-8 08-13be 93:23:39 LOGIN. SRCJINTERACT .B 3251 
10£000 084 P.AAP: .LONG 17694723 
SSSSORE. E8885 PMPs N28 
42. 41 54 0 C P.AAS: -ASCII \TABLES)<0><0> 
010 9006 94 P.AAR: .LONG 17694726 
0060000" 00098 -ADDRESS P.AAS 
53 49 44 ¢ P.AAU: ASCII \DisK\ 
01060004 AO P.AAT: .LONG 17694724 
0060 09° AG -ADDRESS P.AAU 
4E GF 4 OAs P.AAW: ASCII \CONNECT\<0> 
01060007 BO P.AAV: .LONG 17694727 
a" 3 itt P.AAY Age TT \COMMAND\<O> 
0106000 ita P.AAX: LONG Neve eys 
000 0009" 00C4 “ADDRESS P.AAY 
4D 4F 43 O00C8 P.ABA: <ASCII \COMMAND\<0> 
010€0007 90000 P.AAZ: .LONG 17694727 
00990000" 0004 -ADDRESS P.ABA 
45 53 55 O000D8 P.ABC: ASCII \USERNAME\ 
010E0008 O00E0 P.ABB: ;LONG 94728 
00000000" O000E4 “ADDRESS P.ABC 
.EXTRN LOGIN_COMMAND 
.PSECT $CODE$,NOWRT,2 
OFFC 00000 INTERACTIVE VALIDATION: 
«WORD Save R2,R3,R4,R5,R6,R7,RB,R9,RI0,R11 
0000' CF 9E 0000 MOVAB CONNECT. CHECK. Rf 
0000" CF 9E 0000 MOVAB P.AAN, R10 
8000" tr OE booy ROVAB CLESGET VALUE, RO 
00006 00 9€ ites MOVAB INPOT RAB+4, R7 
FEEC CE 3 9001F MOVAB -276(SP), S$ 
06 28 00024 MOVC3 #6, P.AAN, INPUT_BUFFER 
7A 8F 9B 00028 MOVZ7BW #122, INPUT RAB+3 
06 AE 9E 9000 MOVAB INPUT_BUFFER+6, INPUT_RAB+36 
56 D4 00032 CLRL TATU 
0B 90 00034 MOVE #11, STRING+3 
0080 CE 3 00038 MOV BUFFER, STRING+4 
40 8F 88 000 : 1$ BISB2 #64, INPUT _RAB+7 
01 BA 0004 BICB2 #1, INPUT _RAB+7 
0c 90 00047 MOVB #12, INPUT RAB+52 
06 AA 9E 00048 MOVAB P.AAO, INPOT_RAB+48 
7 ps 905 2$ CLRL = = (SP) 
FC A? OF 000 PUSHAB INPUT_RAB 
02 FB 0005 CALL a GET_INPUT 
20 8A 0005¢ BICB2 #32, INPUT_RAB+7 
1€ A? 83 9060 TSTW NPUT_RAB+34 
i 1 906 EQL 
1€ A? 3C 00065 MOVZ2WL INPUT _RAB+34, DESC 
06 C6 O06A ADDL ¢ #6, 
6 ¢ O6E UBL3 #6. INPUT RAB+40, DESC+4 
00006 00 9F 00074 PUSHAB LOGIN_COMRAND 
F8 AD 9F OOO7A PUSHAB DESC 
08 FB 9070 CALLS #2, CLISDCL_PARSE 
DO 00084 MOVL RO, STATUS 
56 £9 00087 BLBC STATUS, 1$ 
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} 
& so5-19 4 01:55:5 AX-11 Bliss-32 V4.0-742 Page 25 
yOu 005 or08- 138s 93:23 LOGIN. SRCIINTERACT 83201 5) 
ees A CLRW = BUFF : 1133) 
= sf 8 MOVW #39, STRING 2 1134) 
bo Tee FO AD BF ; PUSHAB STRI ; 3) 
17 AA 9F 0009 PUSHAB AAP ; | 
02 FB 00098 CALLS #2 CLISGET_ VALUE cena! 
0080 . 3 $59 MOV UL Boe | 
0082 ee 30 6 on MOVC3 cL NAME CLI_NAME_BUFFER I ne! 
" FO AD OF we PUSHAB STAING ; | 
69 i 02 4 So08t LS #2 CLISGET_VALUE oe 
30 0080 ce 3 9084 MOVZWL BUFFER, RO 
ons CE 50 06 itt mMOVC3 RO, BUFFER+2, TABLE _NAME _BUFFER : 114 
a BSE aie ue bg 
69 > 03 Pb b00cB CALLS #2, CLISGET_VALUE cal 
0000 SK FS 88088 Tse qyfren oe 
: 1145, 
B8 008s ee $580 cf 25 20004 Moves BUFFER: BURFERSo” @D1SK_NAME+4 1146) 
PP cold ARMED BRM BL Pasrrenctcn03, 05 : 
OE 13 OOOEE L & see 
seth RR RR Swe ren hie 
i ay BP SOOre 3$: sista > 1154 
00 Ft Pe Oot CALLS ie CLISPRESENT 
esas 6B 50 00 00108 MOVE RO; CONNECT. CHECK | esas 
000000006 00 va Ot Pe 0010 CALLS a. CLISPRESENT 
20 AB it $0 00118 Move #1. COM_NEGATED ; 1157 
BF : 1160 
a fo OAD OOF OO1eS POSH STRINGS MENS Stes 
H : 
69 é3 02 HA tit § CALLS. eh “ELISGET _VALUE (pe 
0080 CE 3¢ 0012C MOVZWL BUFFER, COM : 1168 
a te 5 35 00132 MOVC3 COM SAME BOFFER+2, @COM_NAME+4 : 
* 005 OS on 40 0 0013A 5$: MOVW #327 STRING 123 
nll aes £0 AD oF it E PUSHAB STRING | 
69 ‘ 03 3 sit CALLS #3, CLISGET_ VALUE ; | 
ee B BUFFER, BUFFERS2, USER_BUF F + 1167 
0082 CE 0080 (CE O14A MOVC3 BUFFE : 116 
~ 88 Me hee see Rie ee ae 
FEDF 31 0015¢ BRW t som 
000000006 00 os 00 Fe O15 6$: CALLS #0 CLISEND_PARSE : His 
#1, GET _UAFREC : | 
gga i eee fe 
F Pe a3 athe i 1 reer PASSWORD : 
vane gf d fi 0017A MOVL RO: STATUS! ; 


nN 8 
INTERACT 16-Sep-1984 01:55:5 AX-11 Bliss-32 V4.0-742 
v04 1e-8ep-19 4 93:23:39 LOGIN. SRCJINTERACT B32 1 
29 56 £9 0017D BLaC STATUS, 7$ 
1 DD 001 PUSHL #1 
0000v ct 1 FB 1 CALLS #1, GET_PASSWORD 
6 0 3 1 MOVL RO, STATUS 
cs AB 9F OO18A PUSHAB USERNAME 
000000606 9F 001 : PUSHAB S5T USERNAME 
000000006 90 FB 001 CALLS #2, ~SYSS$CMKRN 
000000006 DO 0019A MOVL AF RECORD, R 
: 1 1A1 BEQL 5$ 
03 $ ED 001A3 BLBC STATUS, 7$ 
08 52 EB O01A6 BLBS §§ STATUS{, 8$ 
50 000000006 &F e 0149 7$ MOVL #LGIS_NOTVALID, RO 
51 01D4 C0 — 001B1 8$ MOVAB 468(RO) R1 
17 61 03 £1 001B6 BBC #3, (RIS, 
68 D5 001BA TSTL CLE_NAME 
29 12 0018C BNEQ ~=«d1'1$ 
08 AB OD O01BE TSTL  TABLE_NAME 
24 12 001C BNEQ ~=s«*dW*'' $ 
10 AS D5 001C3 TSTL § DISK_NAME 
1F if 0016 BNEQ ~=s«*1'18 
18 AB D5 001C8 TSTL § COM_NAME 
1A if 001¢B BNEQ 118 
16 20 A& E8 001CD BLBS § COM_NEGATED, 11$ 
2 61 0D £1 001D1 9$ BBC #13, (R1), 138 
000000006 8F 6B D1 00105 CMPL  CONNECT_CHECK, #CLIS$_DEFAULTED 
02 12 0010¢ BNEO 108 
6B 04 001DE CLRL  CONNECT_CHECK 
14 68 E9 OO1EO 10$:  BLBC CONNECT CHECK, 13$ 
08 61 03 £1 OO1E3 BBC #3, (RIT, 128 
50 000000006 8F bo OO1E7 11$: HOVL #LGIS_CAPTIVE, RO 
50 000000006 8F DO OOIEF 12$: MOVL = #LGIS_DISRECONNECT, RO 
04 001F6 RET 
11 61 01 €1 OO1F7 13$: BBC #1, (RI), 15$ 
68 D5 001FB TSTL  CLE_NAME 
05 12 OO01FD BNEQ 148 
08 A8 D5 OO1FF TSTL § TABLE_NAME 
08 13 00202 BEQL 
50 000000006 8F 00 9204 14$: MOVL  #LGIS_DEFCLI, RO 
04 00208 RET 
50 01 D0 9020¢ 15$:  MOVL #1, RO 
04 0020F RET 


; Routine Size: 528 bytes, Routine Base: S$CODE$S + 03A3 
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ROUTINE get_password (pwd_number) = 


Acquire a password if one needed and validate it. 
Return status is true if password check is successful. 


{ 
! 
: 
Inputs: 

: pwd_number - 0 if validating primary password 

; 1 if validating secondary password 
uaf_record = Address of UAF record for user, if any 
} Outputs: 

1 

! 


routine = True if password validated or none needed, else false. 


LOCAL 

status, 
password isi 
fab: : BOLOCKE TS 
string: VECTOR 
password: 


aSaa’ 
ma 


in], 
in] 
red, 
(2); ! Password descriptor 
SASSUME (S$BYTEOFFSE uaf$q_pwd2), bea SBYTEOFFSET (uaf$q_pwd) +8); 

SASSUME (SBYTEOFFSE uatso> EQL, SBYTEOFFSET (uaf$b encrypt) +1); 


If .uaf_record NEQ 0 ' If there is a uaf record and no 
HEN i password is neede 
-pwd_ number *8) i$ 32,0) EQL 0 


‘e'o 


“encrypte) 


IF .bblock Cuaf_record - af$q_pwd], ( 
a -bblock Cuaf=record Cuaf$q_pwdJ,(.pwd_number*8) + 0,32,0 “Foe 0 
RETURN true; ! Then return success without prompting 


If SYSSINPUT is a terminal, and is set to be local_echo, 
then ask for the password with an overstriking mask. 


—t te wer mre 


IF .terminal ~gevice ! If a terminal 
~ Mal dep_e(tt2$v_localecho] ! with local_echo set 
BEGIN 
SFAB_INIT(FAB = fab 
FNM = ‘SYSS$OUTPUT’, 
sae = (GET,PUT) 
fablfab$v_cr] = 0; 
eres = ce b. ! Initialize local RAB 
ROP = (pmt, cvt,tmo,rne), ' Read with prompt and timeout, 


AIAN AAA. AINA AI AICP POPUDIPUNINIPIPOPIPOPOPONOPOPOPPOPOPPN NOY 2 
~ — . 


i convert to uppercase, 


~-N 


9 
INTERACT 1b-se “1984 01:55:5 AX-11 Bliss-32 V4.0-742 
04-000 12280 8=18e 2:41:0 LOGIN. SRCJINTERACT .B32¢1 
3 £30 P 1285 ; tead no echo 
; 891 P 1 § PBF = UPLIT BYTE(cr,lf,'Password: ', 
; 89 P 1 rep 13 of ('#'), rep 15 of (bs), 
; 89 P 1288 rep 15 of ('H'), rep 15 of (bs) 
: 894 P 1289 rep 15 of ('X'), rep 15 of (bs)S, 
; 4895 P 1290 PSZ = 102 
; 896 P 1291 UBF = string 
; 897 P 1 36 USZ = %ALLO ATION(string), 
3 243 : 7 TMO = .sys$gb_retry_tmo); 
: 900 1295 password isi = (rabCrab$w_isi] = “pedlppdsy inpisil); 
; 30) 36 get_input (rab, 0); ! Get the password 
; 90 1298 password (0) = .rabCrab$w_rsz]; ! Store password size 
; 904 9.44 password [1] = .rablrab$l_rbf]; ! and location 
; 905 1300 
; 906 130) rabCrab$w_isi] = 0; 
: 907 1 O SOPEN (FAB = fab); 
: 908 130 SCONNECT (RAB = rab); 
; 909 1304 
; 910 1305 write_output (uplit (26, UPLIT BYTE (cr, ‘Password: ', rep 15 of ('a'))), 
: 911 1306 0, rab); 
; 912 1307 SCLOSE (FAB = fab); 
: 913 1308 3 END 
: 9146 1309 g. Ase 
3 a 1319 ; BEGIN ! Normal processing 
; (917 1316 3 input_rab Crab$l_pbf) = UPLIT BYTE(cr,lf,'Password: '); 
: 918 1313 3 input_rab Crab$b_psz] = 12; 
; «919 1314 3 input_rab Crab$v_pmt] = true; ' Read woth prompt 
; 920 1315 3 input_rab Lrab$v_rne] = true; ' Read no-echo 
: as! 1318 ; input_rab Crab$v_pta] = false; ! Clear purge-typeahead 
; 955 1318 ; password_isi = oo 6 rab Crab$w_isi); 
; ase 1313 3 get_input(input_rab, 0); ! Prompt for password 
: 926 [set (8 password [0] = .input_rab Crab$w_rsz]; ! Setup descriptor of password 
: 927 1358 3 password [1] = .input_rab Crab$l_rbf); 
: 928 1323 3 
: 365 1324 END; 
; 930 1325 
3 931 P 1326 SCMEXEC(ROUTIN = zero_password ! Zero the password in the RMS area 
; 93¢ 1397 ARGLST = .pasSword_isi); 
: 934 13 9 CHSCOPY((fail_password [0] = MINU(.password [0], ! Save password 
: 935 1330 nsa$s_pkt_password)), 
: ae 3 1 -password (1), ! for auditing 
: 4938 1 : ngaFs_pkt password 
: 939 4 .failpassword (1)5; 
; 941 1 $$ IF .uaf_record EQ. 0 ! If no uaf record ; 
: 94 133 THEN ! return unconditional failure now that 
; ot 1338 RETURN false; ! the prompt has been done 
$ ae 129 status = lgi$check_pass (password, .uaf_record, .pwd_number); ! Validate user password 
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' Return success/failure 


RETURN .status; 
END; 
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INTERACT 16-Sep-1984 01:55:5 AX-11 Bliss-32 V4.0-742 Page 31 IN 
v04 1 ears ri 2:41:0 LOGIN. SRCTINTERACT .B 3251 . (6) | voi 
0044 8F 00 6E 00 2c o048 MovcS #0, (SP), #0, #68, SRMS_PTR ; 1293) : 
0 AE 4ads F B gr MOVW #17409 says. : : 
4 AE 47000000 BF 0 MOVL 1191182 36 “$RMS_P : : 
F AE 000000006 0 90 000 MOVB oySsGB 4 ETRY 1,189. “SRS _PTR+31 : : 
40. AE 1 : 090 MOVW = #24 SANG : ; 
44 A OB, AE 9E 00094 NOVAB STRING. RMS” PTR+36 ; | ; 
20 AE 0000° cf 3 0099 MOVAB 5 E, $RMS PTR+48 : | ; 
4 AE 66 OB O09F MOVB 102, SRMS_PTR+52 : ; 
sc COA 6s AE 3 OOA4 MOVAB FAB, S PTR+ : : 
§0 000000006 00 3¢ 000A9 MOVZ2WL PPD+34, RO + 1295 ’ 
22. AE 20 8) 00080 Ov RO, RA AB+2 ; : 
52 0 DO 00084 MOVL RO, PASSWORD_ISI ; ; 
7E D4 00087 CLRL = = ( §P) ; 1296 : 
24 AE 9F 00089 PUSHAB RAB : : 
67 02 FB 000BC CALLS #2 6 PUT 3 : 
6E 42 AE 3C OOOBF MOVZWL RAB+34,~ PASSWORD ; 1298 ; 
04 AE 48 AE DO 000C3 OVL  RAB+40, PASSWORD+4 + 1299 ; 
22 «AE BG 9008 CLRW = RAB+2 + 1301 ; 
64 AE 9F 000CB PUSHAB FAB : 1302 ; 
000000006 00 01 FB O00cE ALLS #1, SYSSOPEN : F 
20 AE 9F 000D PUSHAB + 1303 3 
000000006 00 07 FB 000D8 CALLS #1, SYSSCONNECT : F 
20 AE 9F OOODF PUSHAB RAB > 1305 : 
7E 04 000E2 LRL = = (SP) : F 
0000" CF 9F OO0E4 PUSHAB P.ABF : ; 
000000006 00 03 FB OO0ES CALLS #3, WRITE_OUTPUT : ; 
64 AE 9F OOOEF PUSHAB FAB : 1307 ; 
000000006 00 01 FB 000F2 CALLS #1, SYSSCLOSE ; ; 
28 11 000F9 BRB 5$° : 1279 ; 
2c Ab 0000' CF 9 OOOFB 4$ MOVAB P. ABH ylNPut yRaps48 + 1312 ; 
0 Ab 0c 90 00101 MOVB wie. IN B+52 + 1313 : 
03 «Ab 41 8F 88 00105 BISB "6 ; INPUT “RAB? : 1315 : 
03 «Ab 20 BA 0010A BICB2 #32. AB+7 : 1316 
52 FE A6 3C O010E MOVZWL INPUT aytten MPASSWORD.. ISI : 1318 
7E D4 00112 CLRL 7 (SP? : 1319 
FC «AG OF 00114 PUSHAB INP F 
67 02 FB 00117 CALLS #2 ; 
6E 1E A6 3C OO11A MOVZWL ie, ge RABY 34, PASSWORD + 1321 
04 AE 24 Ad dO Oot IE MOVL INPUt ppabeso. PASSWORD+4 : 1322 
52 OD 0012 5$ PUSHL SI : 1327 
0000v CF 9F 00125 PUSHAB ZERO WPASSWORD F 
000000006 00 02 FB 00129 CALLS SYSSCHEXE XEC : 
50 gf D0 o1 9 MOVL PASS SWORD, RO > 1329 
iF D1 001 CMPL RO, #31 F 
03 18 0136 BLEQU ; 
50 1F pO 00138 MOVL #31, RO ; 
000000006 90 50 DO 00138 6$ MOVL RO, FAIL PASSWORD ; 
1 000000006 00 0 0014 MOVL  FAIL_PASSWORD+4 > 1334 
1F 00 04 +«BE 23 C te: MOVCS RO, SPASSUORDea. SO. #31, (R1) 3 | 
50 68 00 01 MOVL AF_RECORD, RO : 1336 | 
10 13 001 BEQL | 
04 AC Dd 001 PUSHL  PWD_NUMBER : 1340 
50 BD 00158 PUSHL RO : | 
08 AE fF 1 A PUSHAB PASSWORD : 
000000006 00 03 FB 0015D CALLS #3, LGISCHECK_PASS ; | 
i 
} 
| 


3; Routine Size: 


360 bytes, 


Routine Base: 


SCODES + 0583 


ifse 


Sep-1 
Sep-1 


$8 


4 
4 


132 07 


LOGIN. GACTINGERACT BSos1 


INTERACT 
v04-000 


; 95) 1345 1 ROUTINE write_announcement (logname) = 

:; 9 ¢ 1 $ 1 

> 954 1 rh 1 ! 

; 955 1349 1! Write an announcement message to the pr inery output stream. 
; 228 1350 1! If the logical name given has a translation, it may be of the 
3 et ! 1 : following two forms: 

; 959 1 g 1! ‘atilespec' Write contents of file 

; 960 1354 1! ‘string Write string literally 

2 on eee 

Oo . nputs: 

3 368 1 28 1! . 

; 964 1358 1! logname = Address of descriptor of logical name 

: 366 i 20 Output 

3 ! Outputs: 

; 367 1361 1! ' 

: 968 1 6¢ 1! routine = True if user-supplied message output, else false 

: 969 1365 1 !--- 

: 970 1364 1 

; (971 1365 BEGIN 

: 97 1366 

; 97 1367 LOCAL : 

3; 974 1368 trninm_item list: BLOCKC1*3+1,LONG], ! TRNLNM item List for 1 item 
: 975 1369 desc: VECTOR (2) 

; 976 1370 buffer: VECTOR (128, BYTE); 

: 978 1372 ; trninm_item_list(0O, 0,16,0] = (desc(0) = 128); 

; 979 137 trninm_item_listl0,.16,16,0] = Lnm$_string; ! Fetch name's value string 
: 980 1374 2 trninmiitem_list(1, 0.32.0] = (eset) = buffer); 

; 981 1375 trninm_item_List ¢° 8-35 °03 = desc(0J; 

3 oe 1378 trninm_item_list(3, 0,32,0] = 0; 

; «984 P 1376 IF STRNLNM(TABNAM = ZASCID "LNMSFILE_DEV’, ! If translation exists 

; 985 P 1379 LOGNAM = ,Lopnene, 

; 986 1380 ITMLST = trninm_item_List) 

; 987 1381 EQL ss$_normal 

; 4988 1356 

; 989 138 BEGIN 

; 990 1384 IF .buffer CO) EQL ‘a’ ! If lLogname points to file, 
>; 991 1385 THEN 

; 99 1386 4 BEGIN 

:; 99 1387 4 desc (0) = .desc £9} - 1; ! then remove ‘a' 

; 994 1338 4 desc (1) = .desc (C1) + 1; 

3 444 : +4 ? write_file(desc); ! and write file to output stream 
: 997 1391 ; ELSE IF .desc [0] NEQ 0 ! Else if non-null string, 

; 998 139 THEN 

: 444 1393 4 BEGIN 

3 7 1394 4 write_output(UPLIT (0,0)); ' output blank Line 

; 1001 1395 4 write_output (desc); ' output translation of logname 
; 1008 ! , 4 ye Ste output PLT (0,0)); ! output blank Line 

3 1 139 RETURN true; ! return successful 

: 1005 139 END; 

Ss 06 1239 : 

; 100 1401 RETURN false; ' return failure 


Page ? 


~ww 


IN’ 


9 
0400 1eStoe}9RE Q4E8:50 YMGN SLiseatE weitez42, aya 
; 1008 1288 ¢ 
; 1009 14 END; 


-PSECT SPLITS,NOWRT,NOEXE,2 


56 45 446 SF 45 4C 49 46 26 4D 4E 4C g188 P.ABJ: .ASCII \ONBSEILE.DEV\ 
10 45 0194 P.ABI: .LONG 176947 
4 0000" 00198 -ADDRESS P.ABJ 
00000000 0000 Q019C P.ABK: .LONG 8. 
00000000 000000 O01A4 P.ABL: .LONG ’ 


-EXTRN SYSSTRNLNM 
-PSECT S$CODES,NOWRT,2 

0004 00000 WRITE_ANNOUNCEMENT : 
«WORD 


ave R2 3 1345 
52 000000006 00 9€ 00002 MOVAB WRITE OUTPUT, R2 : 
5E FF68 CE 9E 90009 VAB = g (SP) SP : 
E8 AD 80 BF 9A 0005 MOVZBL #128, DESC : 1372 
FO AD 00020080 8F 00 0001 OVL #131200, TRNLNM_ITEM_LIST : 
50 6— 9E 0001B MOVAB BUFFER, RO 3: 1374 
EC AD 50 00 OO01E MOVL RO, DESC+4 ; 
F4 AD 50 D0 0002 MOVL RO. TRNLNM_ITEM_LIST+4 : 
F8 AD E8 AD 9E 00026 MOVAB DESC, TRNLAM_ITEM LIsT+8 + 1375 
FC AD 04 00028 CLRL TRNLNM_ITEM_CIST+T ; 1376) 
FO 3=OAD OOF 900 E PUSHAB TRNLNM-ITEM"LIST : 1380. 
7E D4 00031 LRL = = (SP) : 
04 AC DD 00033 PUSHL LOGNAME : 
0000' CF 9F 00036 PUSHAB P.ABI : 
7E D4 0003, CLRL =( SP) : 
000000006 00 05 FB 000 ¢ CALLS #5, SYSS$TRNLNM : 
01 50 D1 0004 CMPL = RO. #1 : 1381 
35 12 00046 BNEQ : 
40 8F 6E 91 00048 CMPB = BUFFER, #64 > 1384 
12 1 0004¢ BNEQ = '1$ : 
E8 AD D OOO4E DECL DESC : 1387 
EC AD 06 00051 INCL  DESC+4 : 1388 
E8 AD 9F 00054 PUSHAB DESC : 1389 
000000006 00 01 FB 00057 CALLS #1, WRITE_FILE : 
19 11 0005 BRB 2$ > 1384 
E8 AD 03 006 1$: TSTL DESC : 1391 
14 6 BEQL : 
0000" CF 9F 00065 PUSHAB P.ABK : 1394 | 
62 1 FB 00069 CALLS #i, WRITE_OUTPUT : 
E8 AD 9F 0006C PUSHAB : 1395 
62 01 FB O06F CALLS #1, WRITE_OUTPUT : 
0000" CF 9F 000 PUSHAB P.ABL + 1396 
62 1 FB 07 CALLS #1, WRITE_OUTPUT : 
1 p 79 2%: MOVL #1, RO : 1398 
50 be Soo 38 CERL RO : 1401 
be bor RET : 1403 


; Routine Size: 128 bytes, Routine Base: $CODE$ + 071B 


*eS8eereree ee ree . 
. SOS Oe HS Oe ee HS He He Fe He Fe FS TS FS HS Fe FS FS He HS Oe Fe FSFE HE TS FS HTS TSS HS HS TS SS SS FS FS TSS SHS HSS HSS SR SRS 


V4.0-74 
Haart ree 


Shs intéR 


ar 


pe oN a a 
boSep 1984 01:55:50 yAK=H 


1 
1 


‘9 | 

INTERACT 16-Sep-1984 01:55:5 AX-11 Bliss-32 V4.0-742 Page 36 IN} 
V04= 1328001386 93527589 LOGIN. SRCJINTERACT 83251 . (BS vO4 
; 1011 1404 1 GLOBAL ROUTINE announce: NOVALUE = : | 
31 \¢ 1405 1 : | 
; 101 ma 42° : | 
3 1014 1407 1! : | 
; a 1408 1! Issue messages to interactive users announcing successful login, :] 
; 1 i$ 1409 1! dates of last logins, number of login failures, and number o ° 1 
3 + 1410 1! mail messages. . | 
: 1018 1411 1! ; | 
; 1019 ale 1! Inputs: : |] 
; 1020 1413 1! 3 | 
; 1021 1414 1! None : | 
; 10 ¢ 1415 1! : | 
: 10 1416 1 { Outputs: 3} 
3; 1024 1417 1! 3 | 
; 1025 1418 1! None :] 
: 1026 1419 1 f-=- :] 
; 10 1420 1 : 1 
; 1028 1421 2 BEGIN : 1 
; 94 14 ; :] 
; 1030 14 EXTERNAL : 1 
; 1031 1424 sys$gq_version; ! System version string : 1 
; 1038 1425 :] 
3 103 1426 2 LOCAL i] 
3; 1034 \est trninm_item_list: BLOCKL1*3+1,LONG], ! TRNLNM item List for 1 item : 1 
> 1035 1428 2 Length; ! String variables :] 
3 1036 1499 msgcount, : 1 
3 1037 1430 ptr: REF VECTOR C,BYTE), i] 
; 1038 1431 msq buffer: VECTOR fig -BYTE), ! Buffer for announcement message . 
; 1038 1438 ; bufdesc: VECTOR (2); ! Buffer descriptor for above message . | 
3 1041 1434 2 IF .uaf_record EQL 0 : 1 
3 ok ioe? THEN RETURN; 31 
3 104 1436 ; 3 1 
3; 1044 1437 If NOT .uaf_record Cuaf$v_diswelcom] ! If a welcome message allowed 71 
3 1045 1438 2 THEN :] 
3 1046 1439 BEGIN 3) 
3; 1047 1440 IF NOT write_announcement(ZASCID "SYSSWELCOME') ! If no user welcome 21 
: 1048 1441 THEN 3 1 
3 1049 1226 4 BEGIN 3; 1 
; 1050 1443 4 ptr = CHSMOVE(28, UPLIT BYTE(" Welcome to VAX/VMS version "), 2] 
3 1051 1444 4 msg_buffer); : 1 
: 1036 1445 4 ptr = CHSMOVE(4, Sys$aq version, “ptr); 3 | 
; W327 1oe8 ? ength = .ptr - msg_buffer; ! Set default length of message : 
3; 1055 1448 4 ptr = CHSMOVE(9, UPLIT BYTE(’ on node '), .ptr); | 3} 
; 1056 1449 4 3 | 
: 1057 1450 4 trninm_item_List(0, 0,16,0) = (bufdesc(0) = 16); 3 | 
; 1058 1451 4 trninm_item_listl0,16,16,0] = Lnm$ string: ! Fetch name's value string : 

: 1059 142g 4 trninm_item_list(1, 0,32,0) = (by fdessf) = .ptr); 3 | 
; 1060 1453 4 trninm~ item List ¢- 032-0) = bufdesc J; i‘? 
; 190) ieee ; trninm_item_listl5, 0,52,0] = 0; | : | 
; 1068 P 1228 4 IF STRNLNM(TABNAM = ZASCID ‘LNMSSYSTEM_TABLE", ! Translate SYSSNODE 3 | 
31 P1457 & LOGNAM = ZASCID ‘SYSSNODE', 3 | 
> 1065 P1458 4 ACMODE = UPLIT(psl$c_exec), | 3 | 
3 7 1459 5 ITMLST = trninm_item_list) : | 
; 106 1460 4 EQL ss$_normal ! If successful, : 

| 


INTERACT 
v04- 


<= 


1 
V 


= 
™m 
v 
aw 
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eo 
o~ 
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—~N 


; 1068 14661 4 THEN 3] 
: 1069 1466 BEGIN : | 
; 1070 146 Agpend node name minus :: : 
; 1071 1464 Length = .ptr + .bufdesc [0] - 2 = msg_buffer; :4 
: Ste 1465 4 END; : 4 
; 107 1698 4 ; 

3 IS?e 1467 4 bufdesc £9) = .length; ! Setup descriptor of message ‘ } 
; 130? 178 2 bufdesc [1] = msg_buffer; 4 
: 1099 1290 4 write_output (bufdesc); ! Write message : 
; 1078 1471 3 ND; . 4 
; 1079 Vole END; e 

; 1080 147 
; 1081 1474 ' ‘ 

; IOa6 + Write messages giving times of last logins and login failure counts. ‘ 
; 1084 1477 IF NOT .uaf_record Cuaf$v_disreport] ! If login reports allowed | ; | 
; 1085 1478 N a 
; 1086 1479 BEGIN : | 
: 1087 1480 ‘ 

; 1088 1481 IND } 
3; 1089 1086 lLastlogin_i = uaf_record Cuaf$q_lastlogin_i] : VECTOR, : | 
3 1900 et lLastlogin_n = uaf_record Cuaf$q_lastlogin_n] : VECTOR; 2 
; 1998 1485 4 IF (.lastlogin_i CO] NEQ 0) OR (.Lastlogin_i C1] NEQ 0) : 1 
; 109 1486 3 THEN i] 
; 1094 1487 3 write _fao(UPLIT BYTE(ZASCIC | 2] 
; 1095 1488 3 *~ Last interactive login on !AC, !17%D") :] 
; 1096 1489 ; ascic_day_of_week(lastlogin_i), lastlogin_i); : 
; 1098 1491 4 IF (.lastlogin.n CO] NEQ 0) OR (.Lastlogin_n C1] NEQ 0) :] 
> 1099 1498 3 THEN 7] 
: 1100 149 3 write _fao(UPLIT BYTE(ZASCIC 7] 
3 1101 1494 *" Last non-interactive login on !AC, !17%D"), 2] 
; 1198 1433 ascic_day_of_week(lastlogin_n), lastlogin_n); : } 
3 1104 1497 IF _.uaf_record Cuaf$w_logfails] GTRU 0 : 1 
3; 1105 L 1498 3 THEN write fao(UPLIT BYTE(ZASCIC ZSTRING ( 3 | 
3; 1106 L 1499 3 CHAR (Bell) ,.XCHAR(belLL) ,ZCHAR(belL), 3] 
3 1107 1500 . 'UW failure!%S since last successful login')), $1 
: 1108 1501 -uaf_record Cuaf$w_logfails]); 3 1 
3 1109 1308 : | 
3; 1110 150 END; 3 | 
3 1111 1208 . 
; 1316 1505 ‘ , 3] 
3 Ait7 1306 : If any new mail since last logged on, issue a message. : 
3 1115 1508 IF NOT .uaf_record Cuaf$v_dismail) ! If new mail message allowed -b 
; 1338 1509 AND mail$get_new_count(msgcount, .uaf_record) : | 
: 111 1510 2 THEN | 3 
3: 1118 1511 IF .msgcount GTR 0 : 1 
3 1119 L 1316 THEN write_fao(UPLIT BYTE(ZASCIC ZSTRING( ? 
: 1120 & 151 ZCHAR(Cr) ,ZCHAR( LF) ,2CHAR( bel L) 3 | 
3 1121 L 1514 . You have !U : | 
3: 11 ; 1515 ZCHAR(cr), SCHAR(Lf))), .msgcoun 3 | 
3 112 1516 ELSE IF .msgcount bss 0 3 | 
3 1124 Lt 1517 THEN write_output(ZASCID XSTRING( : 1 


'UW new Rail message!%S.', 
| 


mM 9 
16-Sep-1984 01:55:5 AX-11 Bliss-32 V4.0-742 
12=868-1 388 93327589 LOGIN. SRCJINTERACT. 32;1 
: 1125 L 1 18 ZCHAR(cr) ,ZCHAR( LE) ,XCHAR(beLL), 
; 1126 151 A You have new Mail messages.', 
: 1127 1520 ZCHAR(cr) ,ZCHAR(LF))); 
> 1128 1521 
3; 1129 1522 END; 
-PSECT SPLIT$S,NOWRT,NOEXE,2 
00 45 4D 4F 43 4C 45 57 246 53 59 53 QO1AC P.ABN: .ASCII wah 
ory 6088 3188 P.ABM: .LONG 17694731 
0000000' 19 -ADDRESS P.ABN 
58 41 56 20 6F 74 30 $3 6D 6F 63 $f 65 9 001CO P.ABO: .ASCII <9>\Welcome to VAX/VMS version \ 
20 6& 6F 69 65 76 20 4D 56 2F OQOICF 
20 65 64 6F 6€ 20 6E 6F 20 Gots P. ABP: “ASCII \ on node \ 
4C 42 41 56 SF 40 45 54 53 59 53 246 4D 4E rt Boies P.ABR: ASCII \LNMSSYSTEM_TABLE\ 
010E0010 QO1F8 P.ABQ: .LONG 17694736 
voppoogy” pire «ADDRESS P.ABR 
45 44 4F 4E 24 53 5§ 0 P.ABT: .ASCII \SYSSNODE\ 
OIE O0De 0208 P.ABS: .LONG 17694728 
BO 0000° 0020C -ADDRESS P.ABT 
0000001 00210 P.ABU: .LONG 1 
72 65 74 6E 69 20 74 73 61 4C 30 20 60 20 28 00214 P.ABV: .ASCII \C Last interactive login on !AC, !17%\ 
6— 6F 20 6€ 69 67 6F 6C 20 65 76 69 74 63 61 00 $3 
25 37 31 21 20 2C 43 41 21 20 00232 
44 0023C eASCII \D\ 
69 2D 6€ 6F 6€ 20 74 73 61 r 20 $8 20 80 2C 00230 P.ABW: .ASCII \, Last non-interactive login on !AC, \ 
69 67 6F 6C 20 65 76 69 74 g 61 72 65 74 6E 0024C 
20 2C 43 41 21 20 $f 6F 99 6E B0838 
44 3 37 31 $. 0026 ASCII \!17%D\ 
72 75 6C 69 61 66 20 57 55 21 O9 97 of 31 ee bp oA P.ABX ASCII \.\<7><7><7><9>\!UW failure! %S\ 
63 75 73 20 74 73 61 6C 20 65 63 $f 69 73 29 BAS er ASCII \ since Last successful login\ 
6 69 67 6F 6C 20 6C 75 66 73 73 65 63 0028C 
61 68 20 75 6F 59 20 20 20 20 09 4 oA 43 4 8 Ht P.ABY: .ASCII \+#\<13><10><7><9>\ You have !\ 
73 65 6D 20 6C 69 61 4D 20 77 65 of oe ws 3 6° AC ASCII \UW new Mail message! %S.\<13><10> 
OA OD 2—€ 53 25 21 65 67 61 73 pases ae PP 
76 61 68 20 75 6F 59 20 20 20 $0 09 + oA 0p oe cS P.ACA: .ASCII <13><10><7><9>\ You have new\ 
2 73 65 67 61 73 73 65 6D 20 6C 69 61 4D 20 0020C ASCII \ Mail messages.\<13><10><0><0><0> 
00 00 00 OA D 00 Ep 
01060025 O02FO P.ABZ: .LONG 17694757 
00000000° 002F4 eADDRESS P.ACA 
SYS$GQ_VERSION 
SCODES,NOWRT,2 
ANNOUNCE, Save R2,R3,R4,R5,R6,R7,R8,R9,R10 
WRITE OUTPUT 
UAF RECORD, R9 
WRITE_FAO, R8 


roe 


Sete Se Se Se Ge Se Se Se Fe Se Be Se Be Se Se Be Be Be Se Se Se Ge Se 


1404 


<-_ 
+} 


kk ak a ke ek ed ed ed td od od 


nN 9 | 
INTERACT 16-Sep-1984 01:55:5 AX-11 Bliss-32 V4.0-742 Page 39° 
v04= en eeen 1 8Be 93:23:39 HAMCT Obs 32 Nes °5 52, oe voi 
7 0000" CF 9€ 00017 MOVAB P.ABM, R7 : 5 | 

‘ FF 64 ce 9 ic MOVAR -156(§P), SP ; : 
6 D 1 MOVL VAF RECORD, RO + 1434) ; 
2) Fogel | 
78 01D4 =O 95 EO 00 $ 1$: BBS #5, 468(RO), 3$ : 1437. : 
DD 0002D PUSHL 7 + 1440) ; 
FFGC OCF 01 FB O00oF ALLS #1, WRITE_ANNOUNCEMENT : ; 
AE 08 ef e 5 viet ates RO, P.ABO, MSG meee : 1443 : 
83 000000006 00 DO 0003p MOVL £98860. VERSION, - (PTR + 1445 ; 
20 0c AF H 0044 MOV MSG_BUFFER, RO + 1446 : 
56 5 ¢ 048 SUBL3 RO, PTR, LENGTH : : 
63 24 «A? 09 28 0004¢ MOVC P.ABP, (PTR) + 1448 ; 
04 AE 10 DO 00051 MOVL aig es FDESC + 1450 ; 
FO AD 00020010 8F 00 00055 MOVL {08 TRNLNM ITEM_LIST : ; 
08 AE 23 DO 9005p MOVL ora. UF DESC +4 + 1452 ; 
F4 AD 5 DO 00061 MOVL PTR TRNLNA ITEM_L : $ 
F8 AD 04 AE 9E 00065 MOVAB BUFDESC TRALNA, THER. Cistss + 1453 ; 
FC AD D4 OO06A CLRL —s TRNLNM_ITE + 1454 : 
FO «= AD OOF 90060 PUSHAB TRNLNM~ ITEMS ier + 1459 : 
58 A?sOOF 9070 PUSHAB P.ABU : : 
50 A? OF 0007 USHAB P.ABS : F 
40 AZ? 9F 00076 PUSHAB P.ABQ : ; 
7E 04 00079 CLRL -(SP) s é 
000000006 00 05 FB 0007B CALLS #5, SYSSTRNLNM : | ; 
01 50 01 00082 CMPL RO, #1 + 1460 ; 
OF 12 0008 BNEQ : ; 
53 04 AE CO 00087 ADDL2 BUFDESC + 1464 : 
50 OC AE 1 00088 MOVAB MSG 8 Eek? RO ; : 
53 50 C2 0008F SUBL2 : ; 
56 FE A3 SE 00092 OVAB RO tRS). LENGTH : : 
04 AE 56 DO 00096 2$ MOVL LENGTH, BUFDESC + 1467 ; 
08 AE OC AE 9E OO09A MOVAB NSC BUFFER, BUFDESC+4 > 1468 ; 
04 AE 9F 0009F PUSHAB SC > 1470 : 
6A 01 FB O00A2 CALLS WRITE pourput : : 
50 69 DO 000A5 38 MOVL a RECO + 1477 3 
52 01D5 C0 04 £0 000A8 BBS #4 satiate 8 : ; 
51 018¢ }6CO OSE OOOAE MOVAB 394(RO), R1 : 1482 : 
52 0194 ¢0 H 008 MOVAB 404(RO)., R2 > 148 : 
61 D5 000B8 TSTL = (R1) + 1485 : 
05 12 OOOBA BNEG  4$ : ; 
04 Al D5 000BC TSTL  4(R1) : : 
11 13 OOOBF BEQL 5$ : 3 
51 DD 000C1 4s: PUSHL 1 : 1487 ; 
$1 DD 000C3 PUSHL RI : 1489 | : 
0000v CF gi FB 000C5 CALLS #1, ASCIC_DAY_OF _WEEK : ; 
0 DD OOOCA PUSHL RO : : 
5c 6 A?sOOF: «000CC PUSHAB P.ABV > 1487 : 
68 03 FB OOOCE CALLS #3, WRITE_FAO : : 
62 D 9002 5$: TSTL (Rd) > 1491 | : 
05 12 00004 BNEG 6$ ; : 
04 =A p 06 TSTL  4(R2) : | : 
1 D BEQL «6 7$ : | : 
2 Dd B 6$: PUSHL Re > 1493 | : 

DD 9000 PUSHL R > 1495 

0000v CF 01 FB O00DF CALLS #1, ASCIC_DAY_OF _WEEK : 


; Routine Size: 305 bytes, Routine Base: SCODE$ + 0798 


at 
10 | 
INTERACT bese -1984 01:55:5 AX-11 Bliss-32 V4.0-742 Page 40 
y04~000 1erep-18be 85:23:39 HANGIN She SNP ERMC oe soe1 . a 
50 DD O00E4 PUSHL RO ; 
0085 ¢ oF 6 PUSHAB P,ABW + 1493) 
8 3 FB EA CALLS #3, WRITE_FAO : 
9 p ED 7$ OVL Af RECORD RO + 1497 
0 0164 : ' F MOVZWL 356TRO), RO : 
1 F EQL $ : 
: pd F PUSHL RO + 1501 
00B2 ¢ F OOOF9 PUSHAB P,ABX > 1498 
68 é F F ALLS #2, WRITE_FAO : 
0 6 D 10 8$: MOVL  UAF_RECORB, RO : 1508 
27 01D4 C0 6 EO 001 BBS #6,7468(ROS, 10$ : 
5 BD 0109 PUSHL RO + 1509 
04 AE 9F 0010B PUSHAB MSGCOUNT : 
000000006 00 : FB 0106 CALLS #2, MAILSGET_NEW_COUNT ; 
18 E9 0011 BLBC : 
50 bE 09 00118 MOVL § MSGCOUNT, RO + 1511 
OA 15 0011B BLE 9$ ; 
50 DD 0011D PUSHL RO + 1515 
00E1 (C7 9F OOTIF PUSHAB P.ABY + 1512 
68 02 FB 00123 CALLS #2, WRITE_FAO : 
04 00126 RET : 
07 18 00127 9$ BGEQ 10$ + 1516 
0138 C7 9F 00129 PUSHAB P.ABZ : 1520 
6A 61 FB 0012D CALLS #1, WRITE_OUTPUT : 
04 00130 10$: RET + 1522 


10 
INTERACT 1§- =“Sep-1984 01:55: AX=-11 Bliss-32 V4.0-742 
v04-00 14-Sep- ats 93:2} 741 £09 LOGIN. SRCJIN NTERACT.B32;1 
3; 1131 1523 1 ROUTINE zero_password : NOVALUE = 
eB § 1524 1 
3 15 1525 1 !<-- 
; 1134 1 8 7 
3 1135 1 1! Zero out the password in the RMS buffer. This must be done in 
; 1} § ! 8 : executive mode, since the RMS buffer is not user-writeable. 
; 1138 1530 1 ! Inputs: 
; 1139 1531 1! 
; 1140 1 ¢ 1; Access mode is EXEC. 
; 1141 1 3 
: 1148 1534 1! AP = ISI of RAB which read the password 
3 114 los> 1 ¢ 
3 1144 1536 1 ! Outputs: 
3; 1145 1537 1! 
: 1146 1538 1! None. Password is zeroed. 
3; 1147 1539 1! 
>; 1148 1540 1 !--- 
3 1149 1541 1 
; 1150 1266 2 BEGIN 
3; 1151 1543 2 
: 1126 1544 2 BUILTIN 
3; 115 1545 AP; 
3; 1154 1546 
3; 1155 1547 LOCAL 
3; 1156 1548 isi; 
: 1157 1549 
; 1128 1329 2 isi = .AP; ! Fetch ISI of RAB reading password 
: 1160 1226 § SRR AR AERA RRA AAAAAAAEAAAEEAAAA AERA EET 
; 1161 155 ! seeee This routine currently does nothing! ttre 
3 1308 1554 ! eeeee Tt should find the RMS internal eee 
: 116 1555 { eeee* structures to zero out fhe speceuers trent 
3 1164 1556 2 ! s#ee* which was read using this terres 
; 1165 1357 2! et abn Bw Rina Meo bing Bis 1. RE, «mtn 
3; 1166 1558 2 
3 1167 1559 1 END; 


0000 00000 ZERO_PASSWORD: 
«WORD Save nothing 


50 5C 00 00002 MOVL AP, ISI 
04 00005 RET 


Routine Size: 6 bytes, Routine Base: $CODE$S + O8CC 


‘anes 


INTERACT 

v04-000 

3 1169 1560 
s 1156 1381 
3 (117 1 6¢ 
3 117 156 
3 117 1564 
: 1174 1565 
: 1175 1 96 
: 1379 156 
3 117 1568 
; 1178 1298 
3; 1179 7570 
: 1180 130) 
3: 1181 1 i 
3 157 
3: 118 1574 
: 1184 1575 
3; 1185 1326 
3; 1186 157 
3: 1187 1578 
: 1188 1579 
3; 1189 1580 
3 1190 1581 
3 1191 1386 
; 1136 158 
3 119 1584 
3 1194 1585 
: 1195 1586 
: 1196 1587 
: 1197 1588 
3; 1198 1589 
3 1199 1590 
; 1200 1591 
; 1201 1338 
3 1608 159 
3; 120 1594 
3: 1204 1595 
; 1205 1596 
3: 1206 1597 
3: 1207 1598 
: 1208 1599 
; 1209 1600 
: 1210 1601 
: 1211 1906 
3 \s\g 160 
: 121 1604 
3 1214 1605 
3 1215 1606 
3 1216 1607 
3 1217 1608 
; 1st8 1609 
3; 121 1610 
; 1220 1611 
: 1221 ole 
3 1 ¢ 161 
3 1 1614 
3: 1224 P 1615 
3 1225 1616 


<2. OO ee - - — _- , 


10 
ep-1984 01:55:5 AX=11 Bliss-32 V4.0-742 Page 42) 
opr 8b foiakoy «— PAMGIN. SRCSINGERMCT ow Soc age 46s 


(10) | 


one. 


BUILTIN 
cmpm; 


EL 
read_password, 
got_channel; 


LOCAL 
status, 


zw 
orn 
mr 
ww 
ss . 


LENGTH, byte] 
TAL (UAFSK_ LENGTH, uaf_record); 


If the system password timeout period is zero, then forget it. 


F .sys$qb_pwd_tmo EQL 0 
HEN heTORRS ™ 


If SYSSINPUT is not a syspassword terminal, or is remote, then return. 
if NOT .terminal_device 

OR NOT .dev_dep_2[tt2$v_syspwd] 
THEN RETURN; 


' If not a real terminal 
! or not password required, 
! then just forget it. 


Set the terminal /NOBROADCAST to prevent broadcast messages while 
receiving the system password. This is essential to preserving the 
illusion of a dead Line. 


got_channel: BEGIN 
F ROT SASSIGN (chan = channel, 
devnam = term_name) 


IN 


2 Page 43. 


10 
INTERACT 16-Sep-1984 0 -74 
1 -B32;1 (10) | 


v04=000 14-Sep-1984 12: 


1 
2 


3: (1 $ 1617 ; THEN RETURN; 
3 1 1618 

; 1228 1619 4 read_password: BEGIN 

3 1229 P 1620 4 IF NOT $Q10W (func=io$_sensemode, 

; 1250 P 1621 4 chan=,channel, 

: 1231 P 16 § 4 iosb=iosb, 
3; 7 ¢ P 16 4 1 =term_char 

: 1 1624 5 
: 1234 1625 4 THEN LEAVE got channel; 
: 1235 1626 4 IF NOT .iosb TREN LEAVE got_channel; | 
: 1236 1627 4& save_c arf = -tern.chart 3 

31 4 1628 4 save char 1] = .term-char(1); 
: 1238 1629 4 BBLOCK Cterm.char(1]> TTSV_NOBRDCST) = 1; 

: 1239 P 1630 4 IF NOT $Q10W~(func=io0$_setmode, 
3 1240 P 1631 4 chan=,channel, | 
3: 1241 P 16 ¢ 4 iosb=iosb, 

31 4g P 16 4 1 =term_char 

3: 124 1oRe 5 
3: 1244 1635 4 THEN LEAVE read_password; 
: 1245 1636 4 IF NOT .iosb THEN LEAVE read_password; 

: 1246 1637 4 

> 1247 1638 4 ! | 
3 1see 1639 4 ! Open the SYSUAF.DAT 

: 1249 1640 4 | 
; 1250 1641 4 status = lgi$searchuser(ZASCID'<System+Password>', 0, 
3; 1251 1966 4 uaf_desc, uaf_fab, uaf_rab, 0); 
3 1526 1643 4 IF (NOT .status) AND (.statuS NEQ -2) THEN 

: 125 1644 4 LEAVE read_password; 

3 1254 1645 4 

3 1255 1646 4! 

: 1256 1647 4 ! If no system password, then simply return. 

: 1257 1648 4 ! 

; 1258 1649 4 IF CMPM(2, uaf_record(Cuaf$q_pwdJ, UPLIT(0,0)) EQ. 0 

: 1259 1650 4 THEN LEAVE read_password: 

; 1260 1651 4 

: 1261 1906 4! 

; 1606 1655 4 ! If here, then SYSSINPUT is a syspwd terminal, and there is a non-null 

3 \$0 1654 4 ! system password. Set up the input rab to do read-no-echo, and set up a 

3 1$08 108? ? } timer, so that we know when to stop trying. 

: 1266 1657 4 input_rabCrab$v_pmt] = 0; ' Read with no prompt 

3 1267 1658 4 input_rablrab$v_rne] = 1; ' Read no echo 

: 1268 1659 4 input_rablrab$v_pta] = 0; ' Don't purge type~shead 

3 1568 1660 4 input_rab[rab$l_ubf] = buffer; ! Put password here 

: 70 1661 4 input~rablrab$w_usz) = ZALLOCATION(buf fer); 

: 132 1868 4 enc desc tO] = ZALLOCATION(enc_pwd); 

s ler 1664 4 enc_descl1] = enc_pwd; 

> 1274 1665 4 

3: 1275 1998 4 timeout(0)] = -10*1000*1000 * .sys$gb_pwd_tmo; 

: 1276 1667 4 timeout(1) = -1; 

3 1277 1668 4 

3 : A} 106? ? ppd(ppd$l_lststatus] = lgi$_syspwdtmo; ! Set final status = bad sys pwd 

; 1580 P 1671 4& SSETIMR(DAYTIM = timeout 

; 1281 Pp 1676 4 ASTADR = write timeout, 

: 1282 1675 4 REQIDT = 98); 


F 10 
INTERACT 16-Sep-1984 01:55:5 AX=11 
v04- 1oxge8-1 382 93:27:39 N 


WHILE true DO 
BEGIN | 
get. in ut (input_rab, 1); 
esc(0) = .input-rabsrab$w_rsz); 
desc(1] = .input~rabCrab$l-rbf); 
lgi$hpwd(enc_desc, 
desc, 
uaf$c_purdy_v, 
.uaf_recordCuaf$w_salt], 
ZASCID'<System+Password>' ); 
IF CMPM(2, 
uaf record. ualsq_pudd, 


enc_pwd) E 


Put smashed pwd here, 
get password from here 


using the Purdy algorithm 


BEGIN 

SCANTIMC(REQIDT = 98); 
ut ge lststatus] = 1; 
LEAV read_password; 


END; 
ND; ! End of block read_password 


E 
$Q10W (func=io$_setmode, 
chan=.channel, 


WA 
oo 
&- 


oO 
“ 
OOOOODO0 OO OWBWDDDODOOOONINNNS 


DAA AAAAAAAAAAAAAA AAA AAAAS 
BIE WN $9 ODNAUES WN HO OODNO NEWER OOONOUS 


vuvv 
Ok kd dd dd 


ak ak at at 8 ak ot ot od wd = 2 = = + a 2a Ss 6 dt 2 = 


RIP INI ANA. NANA SE TA AA DA HAITI & 


306 

307 

308 69 iosb=iosb, 

309 70 p! =save_char 

310 70 3 

$1 4 END; ! End of block got_channel 
318 70 SDASSGN (chan = .channel); 

314 70 

315 70 E 


-PSECT SPLITS,NOWRT,NOEXE,2 


z 
=] 
. 


72 6F 77 73 73 61 SO 28 6D 65 74 73 79 53 3C 002r8 P.ACC: .ASCII \<System+Password>\<0><0><0> : 
00 00 00 3& 64 00307 ; 
01060011 0030C P.ACB: .LONG 17694737 : 
00000000" 00310 “ADDRESS P.ACC ; 
90000900 00 90090 0314 P.ACD: . ‘ ; 
72 6F 77 #73 #73 61 SO 2B 6D 65 oS b R : if 8 1C P.ACF: .ASCII \<System+Password>\<0><0><0> : 
01 Foot! 0 $0 P.ACE: .LONG 17694737 : 
00060000" 00334 [ADDRESS P.ACF ; 
.EXTRN SYSSASSIGN, SYS$QIOW 
TEXTRN SYSSSETIMR. SYSSCANTIM 
“EXTRN SYSSDASSGN 
-PSECT $CODE$,NOWRT,2 
003C 00000 GET_SYSPwD: 
-WORD Save R2,R3,R4,R5 ; 1560 
55 000000006 00 9€ 00002 MOVAB SYS$GB_PwD.TMO, RS : 


10 
INTERACT 1b-se -1984 01:55:5 X-11 Bliss-32 V4.0-742 Page 45. IN 
v04-000 12-88-1382 93:27:39 LOGIN. SRCIIN INTERACT.B32;1 9° 10) | vo. 
4 G 9 9E 00009 MOVAB PPD+24 : . 
G 9E 19 MOVAB syssolow. : | 3 
6 00 9E 0001 MOVAB sHadgtse iy R2 : ; 
E F BF ce E 3 MOVAB =18 $p : ; 
04 AE 0 84 Be 0 MOVZWL wid tae DESC + 1561 F 
08 AE C AE 0029 MOVAB RECORD: UAF _DESC+4 : ; 
6 95 000 TSTB $1588. PWD. TMO + 1599) ; 
"Of 809 eye ; | 
01 000000006 00 Es 99 : 1$ BLBS TERMINAL_DEVICE, 2$ ; 1605 | : 
01 000000006 00 03 be 0058 2$: BBS #3, DEV_DEP_2+2, 3$ + 1606 : 
7E 7C 00044 3$: CLRQ  =(SP) + 1616 ; 
08 AE 9F 00046 PUSHAB CHANNEL : ; 
000000006 00 9F 00049 PUSHAB TERM_NAME : ; 
000000006 00 4 4} O004F CALLS #4, SYSSASSIGN 3 ‘ 
01 0 £8 00056 BLBS RO. 4$ : ; 
94 00059 RET : ; 
7E 7C 0005A 4$ CLRQ = =(SP) + 1624 ; 
7E 7C€ 0005C CLRQ = =(SP) : ; 
7E D4 0005E CLRL = = (SP) : ; 
F8 AD OF 90060 PUSHAB TERM_CHAR : ; 
7E 7C 0006 CLRQ  =(SPY : | ; 
E8 AD 9F 00065 PUSHAB 10SB : | ; 
27 bp 00068 PUSHL #39 : ; 
7E 28 AE 3C O006A MOVZWL CHANNEL, -(SP) : | ; 
7E D4 0006E CLRL = (SP) : ; 
63 OC FB 00070 CALLS #12, SYS$Q10W : ; 
03 50 ES 00073 BLBS RO, 6$ : ; 
014¢ 31 00076 5$: BRW : ; 
F9 E8 AD E9 00079 6$: BLBC 1088, 5$ + 1626 : 
FO AD F8 AD 70 0007D MOvO TERM CHAR, SAVE_CHAR + 1627 ; 
FE 02 88 00082 BISB2 #2, TERM_CHAR+6 : 1629 : 
7E 7C 00086 CLRQ. = = (§P) + 1634 : 
7E 7C 00088 CLRQ (SP) : 
7E 04 OOOBA CLRL = (SP) : 
F8 AD SF O008C PUSHAB TERM. CHAR ; | 
7E 7C 0008F CLRQ =(SPY ; 
E8 AD 9F 00091 PUSHAB 10SB ; | 
23 BD 00094 PUSHL #35 : | 
7E 28 AE 3C 00096 MOVZWL CHANNEL, -(SP) : 
7E 04 O009A CLRL =(S : | 
63 o¢ FB 909¢ CALLS #12, gyssalow ; 
03 0 t OF BLBS RO, 8 : 
0107 31 O0A2 7$: BRW 17 : | 
F9 AD £9 OOOAS 8$: BLBC ~—-:10SB, 7$ > 1636 | 
7E D4 O00A9 LRL = = (SPS > 1641 | 
000000006 00 9F OOOAB PUSHAB UAF_RAB : 
000000006 00 9F 000B1 PUSHAB  UAF~ ; | 
10 AE 9F 00087 PUSHAB UAF “DESC ; | 
7E 04 OOOBA LRL 5 (SP) : | 
0000" CF 9F 08 PUSHAB F | 
000000006 00 : FB C CALLS bee PC ISSEARCHUSER : | 
9 E 99¢ BLBS STATUS, $ > 1643 | 
FFFFFFFE  8F 0 D1 ' CA CMPL STATUS * #2 : 
CF 12 00001 BNEQ 4 ; 


| 
| 
| 
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C =(SP) | 

PUSHAB I0SB 

P 4 

Ty le -(SP) 

CALLS #1 SYS$QI10W 


18$:  MOVZWL Ct HANNEL, =(SP) 
ALLS , SYSSDASSGN 
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7E 28 
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: Routine Size: 464 bytes, Routine Base: S$CODE$ + 08D2 
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000 
3; 1317 1707 1 GLOBAL ROUTINE check connection: NOVALUE = 
3 3 i 1798 1 
3 131 1709 1 !e<< 
; 1320 1710 1 
3; 1321 711 #1! Check for disconnected processes under this username and 
3 : ¢ ar; : } attempt a (re-)connection to one of them if possible. 
: 1324 1714 1°! Inputs: 
3; 1325 1715 1! 
3 1 8 rig 1! None 
3 3 1717 1! 
3; 1328 1718 1 ! Outputs: 
: 1329 1719 1! 
: : i Y : } This process exits if a (re=-)connection is made. 
: 1 17 ] lace 
3 1 3 17 : 1 
3 1334 1724 BEGIN 
: 1335 1725 
3; 1336 1726 IF NOT .connect_check ! If no woe 
3; 1337 1727 OR NOT .terminal_device ! or not a real terminal 
: 1338 1728 OR .dev coer eldev$v_rtt) ' or terminal is remote 
; ! 4 17 4 THEN RETURN ! = then don't check... 
3 1341 1731 IF .connect_name(0] fo 0 ! If not specific 
a tg 17 ¢ AND .uaf_record NEQ ! and UAF record exists 
7 17 THEN 
3 1344 1734 BEGIN ! Find ‘connect to’ process... 
3 ez 1735 
3; 1346 1736 pig oF 
3 1347 1737 = 16; ' Save up to this many PIDs 
3; 1348 1738 
3: 1349 1739 LOC 
; 1350 1740 = disconnected, ' Number of disconnecteds 
3; 1351 1741 index ' Saved PID index 
: 133¢ 1248 pid list : _VECTORCnun _pids), i Saved PID List 
3; 135 174 pid_con : GETJPI PID Ma 
> 1354 1744 iosB : VECTORES, , WORD] i GETIPI 1/0 statue block 
5 132? 1745 ound_username CTORCuaf$s username BYTE], ' Found username 
; 1356 1746 found_terminal : VECTOR Rhee BYTE. { Found terminal 
3; 1357 1747 first_terminal : VECTOR(1+15,BYTE), ! First found terminal 
; 1358 1748 found_uic, ' Found UIC 
: 1359 1749 found_pid, ' Found PID 
: 1360 1750 found_procname : VECTOR(16,BYTE ' Found process name 
3 1361 1751 found-imagname : VECTOR[64,BYTE ! Found image name 
3 1306 1736 found_username_len ' Found username Length 
3: 1 175 found terminal— “desc : winseneinet ' Found terminal descriptor 
3 1 1754 first_terminal_length, ' First found terminal length 
3; 1365 1755 found_procname_len, ' Found process name lengt 
3: 1 1738 found_imagname_len ! Found image name lengt 
3 136 175 found devchar2 : eCToR Ege. ' Found terminal's DEV HAR2 
3 1368 1758 prompt but fer : VECTOR (64 TE] ! Buffer for prompt string 
: 136? 1759 getjpi_item_list : SITMLST CLULTEMS = 4), ' GETJPI item List 
3 ! 4 1790 getauic item_list : SITMLST_ ~DECL ITEMS = 1); ! GETDVI item List 
3 1372 P 1766 SITMLST_ mee} 5 2 = of pi_item_Llist, ' Set up GETJPI item List 
3; 137 P 176 (ITMCOD = jpi$_uSername, 
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BUFSIZ = uaf$s_username, 
BUFADR = found_username, 
RETLEN = found_username_len), 
(ITMCOD = $_ferminal,~ 
BUFSIZ = 

BUFADR = found_ terminal(1), 
RETLEN = found_terminal _descl0)), 
(ITMCOD = jpi$_ic, 

BUFSIZ = 4, 

BUFADR = found_uic), 

(ITMCOD = jpi$_pid, 

BUFSIZ = 4, 

BUFADR = found_pid)); 


found_username_len = 0; 
found_terminal—desc(0) = 
found_terminal— roses 1 ad 


found_terminal[0 
found_uic = 0; 
found_pid = 0; 
SITMLST_INITCITMLST 
(ITMCOD 


BUF SIZ 
BUF ADR 


index = 0; 
pid_context = -1; 


WHILE true DO 
BEGIN 


( 
LOCAL 
status; 
IF NOT (status 


| Se eery 


qvis.a8 item_List, 
vi$_devchare, 


Runa _devchar2)); 


Set up GETDVI item List 


Start index at zero 
Start the wild card PID 


! For all processes... 


! set job information 
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0000009000000 00 09 00 09 09 09 00 09 09 09 C9 C9 OD 0909 SINS NSIS SSS SSS SS 
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= S$GETJPIW(PIDADR = ae co 
ITMLST 7 etipi. eon list, 
ae iosb(0] = .status; 
IF .iosbC0) EQL SS$_NOMORE PROC ! Quit if no more processes 
THEN tt nal 
F .iosb(0) : If found a process 
AND .found_terminal_desc(0] NEQ 0 i “and it's interactive 


IF nee. f. found_username_len,found_username, ! If_username matches 
s_Username,uaf_ recordluaf$t _username], 


mo found. ui EQL .uaf_record(Cuaf$l_uic] ! and UIC matches 


BEGIN ' Get terminal’ s info 
found_terminal_desc(0] = .found_terminal afeseles ¢ 1; 
IF “SGETDVIUCDEUNAM = found terminal _de 
ITMLST = getdvi_item_List) 
+ - found_devcnar2(dev$v_det] ! If disconnected 


BEGIN 
pid_listlC.index] = 


- found_pid; Save the found PID 
index = .index + 1; ; 


and count it as saved 


10 
INTERACT 18-S¢ 1984 01:55:5 AX=11 Bliss-32 V4.0-742 
¥04005 1 ~Sep-19 4 ? :41:0 LOGIN. SRCJINTERACT.B32;1 
431 1 IF _ .index GEQU num_pids ! Quit if up to our Limit 
¢ § THEN EXITLOOP; 
END; 
4 END; 
5 5 END; 

5 IF .index EQL 0 ! Found nothing disconnected... 

8 THEN RETURN; 
P 0 SITMLST_INITCITMLST = ot ipi_iten_tist, ! Set up GETJPI item List again 
P 1 (ITMCOD = jpiS_terminal, 
Pp ¢ BUFSIZ = 15, 
P BUFADR = found_terminal(1], 
Pp 4 RETLEN = found _terminal_desc(0)), 
P 1835 (ITMCOD = jpi$_prcnam, 
P 1836 BUFSIZ = 16, 
P BUFADR = found_procname, 
P RETLEN = found_procname_len), 
B (ITMCOD = jpi$_Tmagname, 
: BUFSIZ = 

= 


found_imagname, 
RETLEN = found_imagname_len)); 

found_procname_len ; 

found_imagname_len 


0; 


num disconnected = 0; ! Zero disconnected(s) counter 
INCR i FROM 0 TO .index-1 DO ! List disconnected(s) 
IF SGETJPIW(PIDADR = pid_listl.i] 
ITMLST = etjpi_item list, 
I0SB = ios 
AND .iosb(0] 
THEN 


MAMI Se ee ee 
oO 


MEUM —OODNOULSWN —OOONOULS WN OOM 


ao ene 


an 


GIN 
IF .mum_disconnected EQL 0 
THEN 


GIN 
first_terminal_length = .found_terminal_desc(0J; 
ch$move (16, found_terminal, first_terminal); 
write output((IF .Tndex EQL 1 


N 
ZASCID ° You have the following disconnected process: 


ZASCID ° You have the following disconnected processes:')); 
write_output(ZASCID ‘Terminal Process name Image name‘); 


END; 

write _fao(UPLIT BYTE (ZASCIC_ ‘!10AF !15AF !AF"), 
. found terminal _desc(0), 
found_ferminal(T), 
. found_procname_len, 
found_procname, 
(IF_.found_imagname_len EQL 0 
THEN 144+T 
ELSE .found_imagname_len), 
(IF_.found iogneng Len EQL 0 
THEN UPLIT BYTE (*Tnone)*) 

_ ELSE found_imagname)); 
num_disconnected = .num_disconnected+1; 
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INTERACT 16-Sep-1984 01:55:5 AX-11 Bliss-32 V4.0-742 Page 51) 
v04- 12=808-1 382 93:23:39 LOGIN. SRCJINTERACT .B 3251 ° (11) | 
>: 1488 187 END; 
: 1489 1 is 
: 1490 1880 IF .num_disconnected GTR 0 ! If we Listed anything 
3; 1491 1881 THEN 
3 1636 18 ¢ 4 BEGIN 
3; 149 1 & 
> 1494 1884 4 input_rab([rab$w_usz] = ZALLOCATION(connect_name_buf fer); 
> 1495 1885 4 input_rabLrab$l_ubf] = connect_name_buffer; 
3 1496 ese 4 input_rabLrab$v_pta] = 0; ' Don't purge typeahead 
; 1497 1887 4 input_rablrab$v_rne] = 0; ! Echo inpu 
: 1498 1888 4 input_rablrab$b_tmo] = .sys$gb_retry_tmo; ! Standard timeout period 
: 1$3% 138? ‘ input_rabLrab$v_pmt] = 1; ! Set up for prompt 
; 1501 1891 4 IF .num_disconnected EQL 1 ! If only 1 process Listed 
3 1206 1936 4 THEN | 
; 150 1893 5 BEGIN 
3; 1504 1894 5 input_rabCrab$b_psz] = 41; 
; 1505 1895 5 input _rablrab$l_pbfJ = 
3 1506 1896 5 UPLIT BYTE Tcr,Lf,'Connect to above Listed process [YES]: '); 
; 1507 1897 5 
; 1508 1898 4 
3; 1509 1899 5 BEGIN 
; 1510 1900 5 CHSCOPY (32, UPLIT BYTE (cr, Lf,'Enter terminal to connect to ['), 
3; 1511 1901 5 .first_terminal Length, first_terminal(1], 
3 131g 1DN6 5 3, UPLIT BYTE (*): "), 
3; 151 1903 5 * *, ZALLOCATION (prompt_buffer), prompt_buffer); 
3 1514 1904 5 input rablrabsb_psz, = 32 +3 + .First_terminal_léngth; 
3 1515 1905 5§ rut res rab$l_pbf] = prompt_buffer; 
: 1516 1906 4 END; 
: 1517 1907 4 
: 1518 1908 4 
3 1338 ION, 2 get_input(input_rab, 2); ! Get user's response 
3 1354 1911 4 IF NOT g input _rebtrebst_sts : If any read error (e.g., timeout) 
3 1358 a ? THEN RETURN; ! treat as ‘'NONE 
; 1524 1914 4 aint emt = .input_rabCrab$w_rsz]; ! Set user's response. 
3 136? 131? ? connect_name(1]) = .input_rabCrab$l_rbf); ! as connection terminal 
: 1359 1917 4 IF .connect_name([0] NEQ 0 ! If user did respond 
; 1528 1918 4 AND CHSEQL T.connect nanelQ}, -connect_name(1), ! with ‘'NONE' 
: 13¢9 1919 4 -connect_namel0], uplit byte ('NONE')) 
; 1 ? 1360 ; THEN RETURN; ! then no connection 
3 13382 1992 5 IF (.connect_name(0) NEQ 0 ! if uger did respond 
3; 153 19 5 AND CHSEQL Socennest nese ai. -connect_nmameCi}, : with ‘YES’ 
: 1238 12 : : ' -connect_namel0], uplit byte ('YES")) 
3; 1536 1926 4 OR .connect_name[0) EQL 0 ! If null response - 
3 Veet 1927 4 THEN ! then connect to first term 
3; 1538 1928 2 BEGIN , ‘ 
; 1539 1929 cennect manent = .first_terminal_length+1; 
; 1540 1930 § connect_name(1] = first_ferminal; 
3 1541 1931 4 3 
; 1366 19 ; 4 
3 154 19 ; END; 
3 1544 1934 
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SESESESSsSsELESe 


THEN RETURN 
BEGIN 
LOCAL 


IF .connect name(0J EQL 0 


prev_uic 
chan’: WORD 
josb : VECTORL4,WORD); 


rev_ui 


c = 0; 
-uaf_record NEQ 0 
HEN 


prev_uic = SCMKRNL(ROUTIN 
ARGLST 


IF Ciosbl0] = SASSIGN(DEVNAM 
CHAN 


HEN 
 aieaae 
LOCAL 


status; 
IF NOT (status = SQIOW(CHAN 
FUNC 


THEN iosb([0) = .status; 
SDASSGN(CHAN = .chan); 
END; 


IF .prev_uic NEQ 0 


SCMKRNL (ROUTIN 
ARGLST 


IF NOT .iosb(0) 
THEN 


= set_uic 
= .prev_u 


N 10 
16-Se 
14-Se 


6-19 4 


! If no name 
! then just exit... 


! Connect to terminal... 


' Previous UIC 
' Connection channel 


! Connection 1/0 status block 
write _fao(UPLIT BYTE (ZASCIC ‘Connecting to terminal !AS*),connect_name); 
! No UIC to restore initially 


!' If UAF record exists, 


set_uic ' get UAF's UIC, save old 


ic, : 
F_recordCuaf$l_uicJ); 


Sore pent, !' Get a terminal channel 


! Connect to terminal 


-chan, 

io$_ setmode OR io$m_tt_connect, 
osb, 

connect_name) ) 


' Free up terminal channel 


! If UIC to restore, 
' reset old UIC 


' Check for failure 


BEGIN 
SI 5HAL(UgtS_connerr. 1, connect_name, -iosbl0]); ! Announce the error 


security_audit(nsa$k_rectyp_logi); 
SCMEXEC(ROUTIN = exit_process); 


But, continue... 


! ...connect to process 


! Security audit reconnection 


! Terminate ourselves... 


1984 01:55:5 AX-11 Bliss-32 V4.0-74 
9352330 LOGIN. SRC INTERACT 85201 


! ...find ‘connect to’ process 


46 41 35 31 21 20 46 41 30 31 


win 


65 76 61 68 75 6F 59 20 20 
20 67 6E 69 $9 gf 6 of 6F 66 , 
20 64 65 74 8 6 4 6€ 
A 73 65 65 6F 
4 00 
0000000' 
65 76 61 68 $9 75 6F 59 20 20 
eo eer eA Ee 
00 00 gh 53 65 73 ; 65 8 OF 00 
00000000' 
0 20 20 20 6C 61 69 6D i 
0 20 20 20 65 6D 61 6€ 20 7 
00 65 61 6E 20 
010E00 
00000000' 


VIAVIFTNS VMMPOOTPEM —OMOVWMOMM"OOCOMMN"OO 
NPE MNF ONG SOM FOQNMOAOMOWNAAMVOWNAOT 


POMS LVN AVIS OA MOUS NV QNOWMODOOCOWMIO 
VIS FUN SS = SO NMMMOCVVT ODS SF OOVIOOOulw 


FVUPIMDOODVIWLEVODOC@OLNVvIWOOLoms 


20 6F 74 20 74 63 6E 6E 

72 70 20 64 65 74 73 69 6C 

20 3A 5D 53 59 5B 

69 6D 72 65 74 20 72 65 74 

74 20 74 635 65 6E 6E 6F 63 $f 
45 ef 

0 67 6€ 69 74 63 65 6E 6E 6F 

3 41 21 20 6C 61 6& 69 6D 72 


OF FC 00000 
a 000090006 60 
SE FE7C =6CE 
01 08 AB 


01 000000006 00 
01 000000006 00 02 
6 


OWS OMomomnmowono 
Wn & — S oLfommmn 
SOOoQoooooooooooo 
OOCoooooooooooeo 


SOOOOOOOOSOOOSSO 
UATORNMNN == =D00 
DOCWOWO™ OVW TO 


02 
000000006 4 


v Uv 
. . 


vwv0u vu VU 
a =e Soe 


wv 
. 


vuvD 
*eee 


a 2a 


»PSECT 
-ASCII 


-ASCII 
- LONG 
-ADDRESS P.ACH 
ASCII \ You have the following disconnected \ 


Het 


30 X-11 BL bigs <3 
LOGIN N.SRCJINT 


$PLIT$,NOWRT ,NOEXE,2 
\ You have the following disconnected \ 


sesesaa 


. voi Wepre 
. LON 94770 
ODRESS P ACJ 
“ASCII. \Terminal Process name 
eASCII <0><0> 
LONG 17694757 
ADDRESS P.ACL 
SCI] hSDN T10AF '1S5AF 'AF\ 
-ASCII \(none)\ 
BYTE " 
-ASCII \Connect to above Listed process CYESJ: \ 
BYTE 13, 10 
eASCII \Enter terminal to connect to C[\ 
eASCII \J: \ 
eASCII \NONE\ 
eASCII \YES 
«ASCII <26>\Connecting to terminal !AS\ 
EXTRN SYSSGETJPIW, SYSSGETDVIW 
PSECT $CODE$S,NOWRT,2 
ENTRY CHECK_CONNECTION, Save R2,R3,R4,R5,R6,R7,- 
R8,R9,R10,R11 
MOVAB CONNECT_NAME, R11 
OVAB INPUT RNB+6 R10 
MOVAB <-388(S5P), SP 
BLBS CONNECT  tnecK, 1$ 
i TERMINAL_DEVICE, 2$ 
BBC #2, DEV_CHAR_2, 3$ 
TSTL CONNECT_NAME 
BEQL $ 
BRW 9$ 
TSTL  UAF_RECORD 
BEQL 4$ 


—— 


< 


Image name\<0> 


Sete Se Se Se Se Se Se Se Ge Se Se Ge Se Be te 
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v04=000 12-8 08- 1 3b 93:23:39 LOGIN. SRCJINTERACT B32. 1 Hat) 
0 0 AE 9E 00038 MOVAB GETJPI_IJTEM_LIST, S$$ITMBLKPTR ; 177 | 
0 02020039 BF 5 83 L ee tde i t8Si hel Kern)» : od 
AP Fe Titty RONBOW" Ent COED Negtaoraye 
0 031D000F F 06 a04h L 493032 35 ($$TTMBLKPTR) + : 
0 AD 9E 91 MOVAB FOUND_TERMINAL+1, (S$$ITMBLKPTR)+ : 
0 00A4 CE 3 0055 MOVAB FOUND T RMINAL DESC, (S$$ITMBLKPTR)+ : 
80 03040004 FF p 005A OVL #50593796, ($$TTMBLKPTR)+ : 
80 04 AE 9E 00061 MOVAB FOUND UIC, ($$ITMBLKPTR)+ : 
0 04 0065 CLRL ($ LTPBLKPTR) + : 
80 03190006 8F DO 0006 OVL #51970052. ($$I1TMBLKPTR)+ : 
80 08 A 3 O06 MOVAB FOUND PID, ($$ITMBLKPTR)+ : 
80 7C 000 CLRO = ($$ TABLKPTR)+ : | 
00AS CE D4 00074 LRL_  FOUND_TERMINAL_DESC + 1778 
00A8 CE 88 AD 3 00078 MOVAB FOUND TERMINAL, FOUND_TERMINAL_DESC+4 : 1779 | 
88 AD ea O007E OVB #95, FOUND TERMINAL + 1780 
6E 7C 0008 CLRQ  FOUND_USERNAME_LEN + 1777 
08 AE D4 00085 LRL OUND “PID ; 1782! 
50 20 AE 9E Ht MOVAB GETDVT jyen LIST, SSITMBLKPTR : 1787) 
80 00E60004 8F »dO poet MOVL #15073284, TSSITMBLKPTR)+ : 
80 OC AE 9E 0009 MOVAB FOUND DEVCHAR2, ($$ITMBLKPTR) + : 
80 7C 00097 CLRQ ($$ITABLKPTR) + : 
57 D4 00099 CLRL —sXINDEX : 1789 
10 AE 01 CE 0009B MNEGL #1, PID_CONTEXT + 1790 
7E 7C OO09F 68: CLRQ. = (§P) + 1799 
B8 AD 9F OOOA1 PUSHAB 10SB ; 
3C = AE. OOF O00A4 PUSHAB GETJPI_ITEM_LIST ; 
7E D4 OOOA7 CLRL  =(SP) : 
24 AE 9F OO0A9 PUSHAB PID CONTEXT F 
7E D4 OOOAC CLRL = = (SP) : 
000000006 00 07 FB OOOAE CALLS #7, SYSS$GETJPIW : 
04 50 €8 00085 BLBS STATUS, : 
BB AD 50 80 00088 MOVW STATUS, IOSB : 1800 
09A8 BF B8 AD Bi 000BC 7$ CMPW ose, #2472 : 1802 
4F 13 000C2 BEQL $ ; 
b7 B8 AD £9 b00¢4 BLBC ~—«—:10SB, 6$ + 1804 
00AS CE 05 000C8 TSTL  FOUND_TERMINAL_DESC : 1805 
Di 13 000CC BEQL © 6$ ; 
54 000000006 00 00 OO0cE MOVL. _-UAF_RECORD, R4 : 1808 
20 20 98 AD 6E 2D 000D CMPCS FOURD USERNAME_LEN, FOUND_USERNAME, #32, - ; 
04 AG 00008 #32, ECR4) : 
CO 12 0000D BNEQ ; 
24 Ad 04 AE D1 OOODF CMPL § FOUND_UIC, 36(R4) > 1810 
89 if OO0E4 BNEQ : 
00A4 CE p 0E6 INCL  FOUND_TERMINAL_DESC > 1813) 
7E 7C OOOEA CLRQ 2s = (SP) > 1815. 
7E 7C OOOEC CLRQ = = (SP) ; 
30 AE OF OEE PUSHAB GETDVI_ITEM_LIST : 
00B8 CE 9F OO0FI PUSHAB FOUND_TERMINAL_DESC F 
7E 7C OOF CLRO.sis ; 
000000006 00 Q FB OOF CALLS #8, SYSS$GETDVIW : 
9E E9 OOOFE BLBC . : 
99 0c AE 01 €1 00101 BBC #1, FOUND_DEVCHAR2, 6$ > 1816 
CO AD4 08 AE DO 00106 MOVL § FOUND_PID> PID_LISTCINDEX) : 1819 
D6 19¢ INCL INDEX : 1820 
10 7 01 001 E CMPL INDEX, #16 > 1821 
¢ 1F 0011 BLSSU 6$ ; 


ee ee ge ere Seer | 
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04-000 1o-808-1 38s 93:2? LOGIN. ERCTINTERNCT BS3-1 9 41) 
57 05 00113 8$ TSTL NDEX : 1827 
ie : od 
50 30 AE 118 9$ MOVAB JP TEM, LIST SSITMBLKPTR + 1842 
80 O31D000F BF 5 11 MOVL ne 335067 TSSITMBLEPTRIS : | 
0 89 AD 9E 001 MOVAB FOUND” FERAINAL (S$ITMBLKPTR) + : 
80 00A4 ce ; 1 MOVAB LUND = TERMINAL DESC, ($$ITMBLKPTR)+ : 
80 031001 F p 1 g #52166672, (S$STTMBLKPTR)+ : 
80 FF68 CD 9E 001 MOVAB FOUND_PROCNAME, ($$1TMBLKPTR)+ : 
80 14 AE 43 0138 MOVAB FOUND PROCNAME LEN, ($$ITMBLKPTR)+ : 
80 02070040 8F DO 001 VL 34013248, (S$$STTMBLKPTR)+ : 
80 OOAC CE 3 014 MOVAB FOUND_IMAGNAME, ($SITMBLKPTR)+ : 
80 1 AE E 0014 MOVAB FOUND-IMAGNAME.LEN, ($$ITMBLKPTR) + : 
8 b4 014C¢ CLRL $$1TABLKPTR) : 
14 AE C 0014E CLRQ FOUND PROCNAME_LEN + 1843 
58 D4 00151 CLRL = NUM_ DISCONNECTED + 1846 | 
56 01 cE 00153 MNEGL #1, 7] + 1847 
OO8F 31 00156 RW 18$ : 
7E 7¢ 00159 10$:  CLRQ -(SP) + 1850 
B8 AD 9F 00158 PUSHAB I0SB : 
3C «= AE. OOF «0015E PUSHAB GETJPI_ITEM_LIST : 
7E 04 00161 CLRL = (SP) : 
CO AD46 DF 00163 PUSHAL PID_LISTCIJ : 
7E D4 00167 CLRL = = (SP) : 
000000006 00 07 FB 00169 CALLS #7, SYSS$GETJPIW : 
75 50 €9 00170 BLBC 0 : 
71 B8 AD €9 00173 BLBC ~=«-: 1088, 18$ : 1851 
58 05 00177 TSTL NUM DISCONNECTED + 1854 
31 12 00179 BNEQ : 
59 00A4 ce DO 00178 MOVL_ FOUND. TERMINAL_DESC, FIRST_TERMINAL_LENGTH ; 1857 
FF78 CD 88 AD 10 28 00180 MOVC3 #16 FOUND_T ERMINAL, FIRST~ TERMINAL : 1858 
01 57 D1 00187 CMPL INDEX. : 1859 
07 12 0018A BNEQ 11$ : 
50 0000" CF 9E 0018C¢ MOVAB P.ACG, RO : 1860 
05 11 00191 BRB 12$ : 
50 0000' CF 9 00193 11$: MOV P.ACI, RO + 1862 
50 DD 00198 12$:  PUSHL RO : 
000000006 00 01 FB OO19A CALLS #1, WRITE_OUTPUT + 1859 
0000' CF 9F OO1A1 PUSHAB P.ACK > 1864 
000000006 00 o1 FB OO1A5 CALLS #1, WRITE_OUTPUT : 
1 D4 OOIAC 13$: CLRL RI : 1874 
18 AE DS OO1AE TSTL  FOUND_IMAGNAME_LEN F 
09 12 001B1 BNEQ 14$ F 
51 06 185 INCL RI ; 
50 0000' CF 9E 001B MOVAB’ P.ACN, RO : 1875 | 
05 11 O01BA BRB 15$ ; 
50 OOAC CE 9E OO1BC 148 MOVAB FOUND_IMAGNAME, RO + 1874 
0 Db doicy 15$ PUSHL RO ; 
04 1 €9 001C3 BLBC. RI, 16$ ; 
06 DD O16 PUSHL Ht : 1872 
03 11 001C¢ BRB 17$ : 
1¢ «AE ODD OiCA 168 PUSHL FOUND_IMAGNAME_LEN + 1873 
FOS CD 9F OO1CD 178 PUSHAB FOUND ~PROCNAME~ > 1868 
é AE po 0101 PUSHL FOUND ~PROCNAME LEN > 1869 
9 AD 9F 001D4 PUSHAB FOUND TERMINAL? + 1868 
0088 CE po 0107 PUSHL FOUND TERMINAL_DESC F 
000' CF 9F 001DB PUSHAB P.ACM™ + 1866 
| 
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mae 1$-Sen-1984 03:23:39 LOGIN. SRCJINTERACT. B32;1 (11) | 
#7, WRITE_FAO ; 1868, 
scerigeosente , be Pe ite NUM_DISCORNECTED ; 1877 
56 5 ps 168 18$:  AOBLSS INDEX, I, 19$ 
E WHEE sos, Be oa 
“i 35 aH 4: Ist At DISCONNECTED : 1880 
03 14 OO1F ; 
OOAD 31 OOTF BRW “ 5 eae! 
6 NA D8 HY Br bite te MOVA fom Burren. INPUT_RAB+36 ; 1888 | 
ae 00000006 0 6 00 8 Bove HE RETRY TMQ, INPUT_RAB+31 : 1888 
8 vind 8 F § § $8 BISB2 #64, : 188s 
“ Ot 8 D1 00 if CHPL NUM DISCONNECTED, "1 ; 
12 0021 BN P sens 
3 $6 0217 MOVB #41, INPUT_RAB+52 : 189% 
3c MA 0000" ch 9E 09 18 MOVAB B Ato. INPOT_RAB+48 : 13 
: R6 : 
$f oO RRB Bie ee ; 
56 20 0000" CF 20 2¢ a068¢ MOV or ‘ 
Q ; 
ee et eee ; 
0 ¢ S 
56 20 FF79 eB 59 2c o094e MOVC FIRST TERMINAL LENGTH, FIRST_TERMINAL+1, ; 
OE 18 0024 BGEQ 23$ : 
TERMINAL_LENGTH, R8 : 
8 35 co $0348 SURE FIRST ~TERMINAL” “LENGTH R6 ; 
56 20 0000' ee 03 2C 0024 MOVC ae PTACQ, #32, (R8) ; | 
$$ 00956 ENGTH, INPUT_RAB+52 : 1904) 
23 81 00253 23$:  ADDB3 #35, FIRST _TERMINAL_L - z 1904 
aheren 2c a 64 AE 9 00258 ‘ts MOVAB “bie BUFFER, INPUT_RAB+48 1905 
eT ne net Fe 
es of 04 AA EB 60566 BLBS _—siINPUT ERKB*8- 25$ ; 
¢ bo56e NOV 34, CONNECT_NAME > 1914 
6B 1E AA oe 00 i 25$:  MOVZWL INPUT_RAB+ me : 1316 
MOVL  INPUT~RAB+40, CONNECT “NAME 
- 3 ” é8 My Mita MOVL CONNECT _NAME, R Based 
cae ee 
ge TS Bsr Gea Se 
' 22 8 60 CMPC3 R4, @CONNECT_NAME+4, P.ACR + 1918 | 
sates Ts eo I¢ "3 0 § BEQL 308 on ; 1922 
3 22 6 = PRPES R4. @CONNECT_NAME+4, P.ACS : 19 
0000' CF 04 BB , CMPCS Rae — 
97 27$ TSTL = RG ; | 
1 oR 13 6 4 28% BOY AB ern) CONNECT_NAME : 19 3 
“s RST TERMINAL; NE ORINECT _NAME +4 F 
oS rrT8 EG FE USE OO” ROYAB FURST TER BY 
6B D5 00 a3 3 ‘ 
01 12 002A7 30$ BNEQ $ 


; Routine Size: 


000000006 


000000006 


000000006 
F8 


000000006 
F8 
000000006 


000000006 


000000006 
000000006 


000000006 


Routine 


0000' 
00 
50 000000006 
$e 
000000006 
00 
52 
$8 
000000006 
00 
AD 
31 
F 
7E 08§ 
7E £a 
00 
04 
AD 
7E 1¢ 
00 
000000006 
00 
16 Fe 
7E F 


9 000000006 


00 


000000006 
00 


Base: SCODE$ + OAA2 
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og 
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7E 
$e 
E 
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8F 
AE 
7E 
oc 
50 
50 
AE 
01 
52 
OF 
52 
00 
02 
AD 
AD 
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Pd 


QUE S&F EWN | BOO 007 Mmmm 
FONMIMOD EMO SOANVDUW— MDW LOS FODORLVOMDNOY 


on iwatTe _FAO 
PREV_U 
Yo _RECORD, RO 


CHAN 
TERM_NAME 
a4, Frsenssien 


PREV_UIC 
SET_OIC 
#2, SYSSCMKRNL 
loss, =(SP) 
Rit 
*LGIS CONNERR 
#4, LIBSSIGNAL 
4s 
#1, SECURITY_AUDIT 
-(§p) 


EXIT_PROCESS 
#2, SYSSCMEXEC 


See Se Se Se Se Se Se Ge Ge Se Be Be Be Be Se Be Ge Se Se Be Be Se Be Be Be Se Se Se Be Ge Se Se Se Ge Se Fe Fe Ge Se Se Se Se Be Be Fe Se Be Se 
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v04- 1a-8ep-19 4 9) 41 39 LOGIN. SRCJINTERACT.B325 1 . (12) 
; 1601 1990 1 GLOBAL ROUTINE ascic_day_of_week (time) = 
; Ione 1991 1 
; 160 1236 1 !<<- 
; 1808 199% : Return ASCIC day of week gi bsol i 
; eturn ay of wee ven absolute time. 
: 1606 1995 1 | : ’ | 
: 160 1338 1! Inputs: 
: 1608 1997 1: | 
: 1609 1998 1! time = Address of absolute time quadword. 
: 1610 1999 1! 
; 1611 000 1 ! Outputs: 
3 lol¢ 001 1! 
3; 161 00g 1! Address of ASCIC day of week. 
3: 1614 003 1! 
: 1615 004 1 !--- 
: 1616 005 1 
3; 1617 006 BEGIN 
3; 1618 soot 
3; 1619 008 BIND 
: 1620 2009 week days = UPLIT (UPLIT BYTE(ZASCIC 'Monday') 
; 1621 2010 2 UPLIT BYTE(ZASCIC ‘Tuesday'), 
: lose $oi3 2 UPLIT BYTE(ZASCIC ‘Wednesday ve 
3; 162 oi¢ 2 UPLIT BYTE(ZASCIC hae te ), 
3; 1624 201 2 UPLIT BYTECZASCIC ‘Friday’ F 
3; 1625 2014 § UPLIT BYTEC(ZASCIC ae he | Ve 
3; 1626 2015 UPLIT BYTE(ZASCIC ‘Sunday')) 
3: 1627 2016 : VECTOR (7); 
: 1628 2017 
3 ioe? 2018 LOCAL 
: 1630 2019 day; 
: 1631 2020 
: 1632 2021 Lib$Sday_of_week(.time, day); ' Fetch day of week from time 
: 1633 $058 2 RETURN .week_days [C.day - 14; ! Return address of ASCIC week day 
3 1634 2023 2 
; 1635 2024 1 END; 
-PSECT SPLIT$S,NOWRT,NOEXE,2 
79 61 64 6E€ 6F 4D 06 00460 P.ACV: .ASCII <6>\Monday\ 3 | 
79 61 64 73 65 75 54 O7 00467 P.ACW: .ASCII <7>\Tuesday\ ; 
79 61 64 73 $3 6E 64 65 57 09 OO46F P.ACX: .ASCII <9>\Wednesday\ 3 
79 61 64 73 72 75 $8 54 pet P.ACY: .ASCII <8>\Thursday 3 
9 61 64 69 28 6 rt t3 P.ACZ: .ASCII <6>\Friday\ F 
79 61 64 72 75 74 $] 53 08 00489 P.ADA: .ASCII <8>\Saturday\ ; 
79 61 64 6€ 5 53 06 49g 43 P.ADB: ot qor\eunder' 3 
00000000" 00000000 00000000' 00000000' 00000000' 00000000' Socge P.ACU: .ADDRESS P.ACV, P.ACW, P.ACX, P.ACY, P.ACZ, - : 
00000000° 00484 P.ADA, P.ADB : 
WEEK_DAYS= P.ACU | 
| 
-PSECT S$CODE$,NOWRT,2 | 
0000 00000 «ENTRY ASCIC_DAY_OF _WEEK, Save nothing : ten 
| 


a 


Rm 


3; Elapsed Time: 03:03.6 
; Lines/CPU Min: 66? 

3; Lexemes/CPU-Min: 39967 

: penery Used: 365 pages 
3; Compilation Complete 


" | 
INTERACT 1hese -1984 01:55: AX-11 Bliss-32 V4.0-742 Page 60) LIB 
v04= 1er8eb=13be 93:27:89 «ENS GIn. BAcS interact ages ith +e vO4 
; 1637 5 1 END | 
; 183 $052 0 ELUDOM 
.EXTRN LIBSSIGNAL, LIBSSTOP | 
; PSECT SUMMARY 
: Name Bytes Attributes | 
: SOWNS 22 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 
; SGLOBALS 365 NOVEC, WRT, RD ,NCEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS 1208 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 3618 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics | 
: wocccece Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
:  _$255$DUA28:CSYSLIBILIB.L32;1 18619 170 0 1000 00:01.3 
: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: INTERACT/OBJ=OBJ$: INTERACT MSRC$: INTERACT/UPDATE=(ENHS: INTERACT) 
; Size: 3618 code + 1665 data bytes 
; Run Time: 00 4 
| 
| 
| 
| 
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